9 lines
		
	
	
		
			213 B
		
	
	
	
		
			Common Lisp
		
	
	
	
	
	
			
		
		
	
	
			9 lines
		
	
	
		
			213 B
		
	
	
	
		
			Common Lisp
		
	
	
	
	
	
| (set! expt (lambda
 | |
|             (n x)
 | |
|             "Return the value of `n` raised to the `x`th power."
 | |
|             (cond
 | |
|               ((= x 1) n)
 | |
|               (t (* n (expt n (- x 1)))))))
 | |
| 
 | |
| (inspect (expt 2 60))
 |