汉诺塔erlang版

刚发一个八皇后，想起汉诺塔没数组，erlang最合适，顺便看看erlang代码的优雅，呵呵

-module(hanuo).
-export([run/3]).
run(Number,Dest,From) ->
                    hannuo(true ,Number,Dest,From ).
hannuo( false, Number, Dest, From ) ->
                            io:format("number-> ~p  from ~p  to ~p ~n" ,[Number,From,Dest] );                            
hannuo( true, 1, Dest, From ) -> io:format("number-> ~p  from ~p  to ~p ~n" ,[1,From,Dest] );      
hannuo( true, Number, Dest, From ) ->    
                            Middle =findfree(From,Dest),
    hannuo( true,Number-1,Middle , From ),
    hannuo( false,Number, Dest, From ),
    hannuo( true,Number-1,Dest , Middle ).
findfree(From,Dest) -> 6-From-Dest.