Stair-climbing puzzle: Difference between revisions
Content added Content deleted
(Added Java) |
(→{{header|J}}: Add recursive) |
||
Line 171: | Line 171: | ||
'''Solution (Explicit):''' |
'''Solution (Explicit):''' |
||
<lang j>step_upX=: monad define |
<lang j>step_upX=: monad define NB. iterative |
||
while. -. +/y do. y=. y , _1 1 {~ step 0 end. |
while. -. +/y do. y=. y , _1 1 {~ step 0 end. |
||
) |
|||
step_upR=: monad define NB. recursive (stack overflow possible!) |
|||
while. -. step'' do. step_upR'' end. |
|||
)</lang> |
)</lang> |
||