Stair-climbing puzzle: Difference between revisions
Content added Content deleted
(Added Java) |
(→{{header|J}}: Add recursive) |
||
Line 171:
'''Solution (Explicit):'''
<lang j>step_upX=: monad define NB. iterative
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>
| |||