Towers of Hanoi: Difference between revisions

m
(Undo revision 125368 by 206.75.102.162 (talk) last editor was confused)
Line 840:
 
<lang J>hanoi=: monad define
moves=. i.@,&2 ` (({&0 2 1,0 2,{&1 0 2)@$:@<:) @. *H y
disks=. $~` ((],[,]) $:@<:) @.* y
('move disk ';' from peg ';' to peg ');@,."1 ":&.>disks,.1+moves
6,962

edits