RosettaCodeData/Task/Exponentiation-operator/Retro/exponentiation-operator-1.r...

2 lines
46 B
Plaintext

: pow ( bp-n ) 1 swap [ over * ] times nip ;