Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

One Line Factorial

Name: Anonymous 2009-06-15 15:56

for(int a1=1,a2=1,i=scanf_s("%d",&i)+i-1;(i--)>2; a1=(a2+=a1)-a1,(i==2)?printf_s("Result=%d\n",a2):NULL)

Name: Anonymous 2009-06-15 17:32

: fact 1+ 1 tuck +do i * loop ;

Name: Anonymous 2009-06-15 19:26

>>8
see >>7

also, : fact ( n -- m ) 1 + 1 tail-slice product ;

Newer Posts