底辺私立医大を卒業した医者って頭悪いよね？ Part7

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