9 lines
135 B
Racket
9 lines
135 B
Racket
|
#lang racket
|
||
|
|
(define (^ base expt)
|
||
|
|
(for/fold ((acum 1))
|
||
|
|
((i (in-range expt)))
|
||
|
|
(* acum base)))
|
||
|
|
|
||
|
|
(^ 5 2) ; 25
|
||
|
|
(^ 5.0 2) ; 25.0
|