Narcissistic decimal number: Difference between revisions

m
(fixed a typo)
(Added Forth example)
m ((fixed a typo))
Line 1,542:
loop drop then ;
 
: to.pow \ nth power forof positive numbers ( n m -- n^m )
swap dup rot
dup 0 <= if
Anonymous user