8 lines
135 B
Racket
8 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
|