Matthew van Eerde's web log

Another programming contest asks to solve the Josephus problem . Bad Perl solution (83 characters... so close...) >perl -e" @_=(1..$ARGV[0]);++$c%$ARGV[1]?$i++:splice@_,$i%=@_,1while$#_;print@_ " 40 3 28 EDIT: got it down to 80. >perl -e" @_=(1..shift);++$c%$ARGV[0]?$i++:splice@_,$i%=@_,1while$#_;print@_ Read More...

I found this programming contest interesting: here's what I've got. perl -e " ($a,$b)=@ARGV;map{$c+=$_*$b}grep{$a&$_}map{1<<$_}(0..log($a)/log 2);print$c " 7 19 I'm calling this a one-liner because the part between the quotes is less than 80 Read More...