12 lines
380 B
Text
12 lines
380 B
Text
fac f. Y NB. Factorial...
|
|
'1:`(] * [ ([ 128!:2 ,&<) ] - 1:)@.(0 < ])&>/'&([ 128!:2 ,&<)
|
|
|
|
fac f. NB. Factorial step...
|
|
1:`(] * [ ([ 128!:2 ,&<) ] - 1:)@.(0 < ])
|
|
|
|
|
|
Fib f. Y NB. Fibonacci...
|
|
'(([ ([ 128!:2 ,&<) ] - 2:) + [ ([ 128!:2 ,&<) ] - 1:)^:(1 < ])&>/'&([ 128!:2 ,&<)
|
|
|
|
Fib f. NB. Fibonacci step...
|
|
(([ ([ 128!:2 ,&<) ] - 2:) + [ ([ 128!:2 ,&<) ] - 1:)^:(1 < ])
|