14 lines
184 B
Text
14 lines
184 B
Text
include ..\Utilitys.pmt
|
|
|
|
def mypower
|
|
1 tolist flatten len
|
|
1 == if
|
|
pop drop 2
|
|
else
|
|
pop pop drop
|
|
endif
|
|
power
|
|
enddef
|
|
|
|
"2 ^2: " print 2 mypower ?
|
|
"2 ^3: " print ( 2 3 ) mypower ?
|