13 lines
187 B
Text
13 lines
187 B
Text
def mypower
|
|
1 tolist flatten len
|
|
1 == if
|
|
1 get 2
|
|
else
|
|
2 get swap 1 get rot
|
|
endif
|
|
power
|
|
nip
|
|
enddef
|
|
|
|
"2 ^2 = " print 2 mypower print nl
|
|
"2 ^3 = " print 2 3 2 tolist mypower print
|