4 added 1 characters in body
source | link

perl5.10: 35 36 chars

map{$p%$_?1:($p/=$_)*say,say until$p%$_}2..($p=<>)

perl5.10: 35 chars

map{$p%$_?1:($p/=$_)*say}2..($p=<>)

perl5.10: 36 chars

map{$p/=$_,say until$p%$_}2..($p=<>)
3 little bug
source | link

perl5.10: 37 35 chars

map{$p%$_?1:$_<$p($p/$_?say:1=$_)*say}2..($p=<>)

perl5.10: 37 chars

map{$p%$_?1:$_<$p/$_?say:1}2..($p=<>)

perl5.10: 35 chars

map{$p%$_?1:($p/=$_)*say}2..($p=<>)
2 edited body
source | link

perl5.10: 38 37 chars

map{$p%$_?1:$_<$p/$_?say:1}2..($p=<>)

perl5.10: 38 chars

map{$p%$_?1:$_<$p/$_?say:1}2..($p=<>)

perl5.10: 37 chars

map{$p%$_?1:$_<$p/$_?say:1}2..($p=<>)
1
source | link