DouKaku?

与えられた10進数の整数を2進数に変換してください。ただし、与えられる整数は0以上とします。

与える整数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

余力のあるものはこのプログラムを短くしてみたり、さまざまな基数への変換に対応させてみてください。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

1
2

# 標準入力から整数を受け取る
ruby -e 'puts gets.to_i.to_s(2)'

1

perl -e "printf('%b', $ARGV[0])"

Math::BaseCalcモジュールを使用して。
コマンドライン引数に基数(2,8,16等)、数値の順で指定します。
 % perl xxx.pl 2 256
 100000000
 % perl xxx.pl 8 256
 400
 % perl xxx.pl 16 256
 100
基数が2,8,10,16だったら匿名の方のようにそれぞれ%b %o %d %xを指定すればsimpleでいいですね。

1
2
3

use Math::BaseCalc;
$c=new Math::BaseCalc(digits=>[0..($ARGV[0]-1)]);
print$c->to_base($ARGV[1]);

1

printf '%b',<>

モジュールを使わずに短く書くことを目指しました。84バイトです。
第一引数が基数，第二引数が変換する10進数です。

1

($b,$n)=@ARGV;while($n){unshift@a,$n%$b;$n=int$n/$b}print@a?map{(0..9,A..Z)[$_]}@a:0