第3回2ch全板人気トーナメント＠UNIX板 (778ﾚｽ)
上下前次1-新

---

613(2): 戦時板国民 2008/07/25(金)19:06 AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
613: 戦時板国民 [sage] 2008/07/25(金) 19:06:58 #!/usr/bin/perl use strict; my @dayomon = reverse qw/だよ もん/; my @mode = qw/dayomon decimal/; my $term = 'だよもん！'; die "Usage: perl dayomon.pl dayomon|decimal\n" if $ARGV[0] !~ /^\d+$|^($dayomon[0]|$dayomon[1])+${term}$/; my $result = $ARGV[0]; my $flag = $result !~ /^\d+$/; if ($flag) { $result =~ s/$term//; $result =~ s/$dayomon[$_]/$_/g for (0..1); $result = oct("0b$result"); } else { $result = sprintf("%b", $result); $result =~ s/$_/$dayomon[$_]/g for (0..1); $result .= $term; } printf("%s: %s\n", $mode[$flag], $result); __END__ ダヨモン様、御久シ振リトナリマシタンダヨモン。 ダヨモンダヨダヨダヨモン！日ノ組決勝デハ一緒ニ遊ンデ下サリ、感謝シテヰマスダヨモン。 燃エ尽キテ仕舞ヒ、守護神殿ノ御礼モ持チ帰リモ今頃ニナツタノガ心苦シインダヨモン。 反省シテ更ナル現実逃避ニ走ツタダヨモンガ、コンナ伊国麺デハ困ルンダヨモン…。 http://mevius.5ch.net/test/read.cgi/unix/1206926465/613
だよ もん だよもん！ ダヨモン様御久シ振リトナリマシタンダヨモン ダヨモンダヨダヨダヨモン！日ノ組決勝デハ一緒ニ遊ンデ下サリ感謝シテヰマスダヨモン 燃エ尽キテ仕舞ヒ守護神殿ノ御礼モ持チ帰リモ今頃ニナツタノガ心苦シインダヨモン 反省シテ更ナル現実逃避ニ走ツタダヨモンガコンナ伊国麺デハ困ルンダヨモン

---

上下前次1-新書関写板覧索設栞歴

---

あと 165 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.037s