Simple linear power function.
This commit is contained in:
@@ -73,6 +73,7 @@ popopdd [popop] dipd
|
|||||||
popopd [popop] dip
|
popopd [popop] dip
|
||||||
popopop pop popop
|
popopop pop popop
|
||||||
popop pop pop
|
popop pop pop
|
||||||
|
pow 1 roll> swap [*] cons times
|
||||||
product 1 swap [*] step
|
product 1 swap [*] step
|
||||||
quoted [unit] dip
|
quoted [unit] dip
|
||||||
range [0 <=] [-- dup] anamorphism
|
range [0 <=] [-- dup] anamorphism
|
||||||
|
|||||||
Reference in New Issue
Block a user