18/07/29 19:26:38.84 +pC2KYTE.net
Recall使わなくても普通に動作した。
> Hanoi <- function(n,from='A',via='B',to='C'){
+ if(n >= 1){
+ Hanoi(n-1,from,to,via)
+ cat('move',n,'from',from,' to ',to,'\n')
+ Hanoi(n-1,via,from,to)
+ }
+ }
> Hanoi(4)
move 1 from A to B
move 2 from A to C
move 1 from B to C
move 3 from A to B
move 1 from C to A
move 2 from C to B
move 1 from A to B
move 4 from A to C
move 1 from B to C
move 2 from B to A
move 1 from C to A
move 3 from B to C
move 1 from A to B
move 2 from A to C
move 1 from B to C