Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト207:nobodyさん 08/03/22 10:39:29 >>206 まず、インストールのいかたが分からないので、 そこから、調べてみる 208:nobodyさん 08/03/22 10:39:45 インストールのしかた 209:nobodyさん 08/03/22 10:54:33 ppm install Math-BaseCalc 210:nobodyさん 08/03/22 10:57:42 インストールできました。 $calc = new Math::BaseCalc(digits => ['a'..'z']); $ans = $calc->to_base($number); これもzの次にbaが出るorz 211:nobodyさん 08/03/22 11:22:42 当り前だろ、A=0 B=0扱いなんだから おまいがやりたい事は26進とは言わない 212:nobodyさん 08/03/22 11:23:35 B=1だ orz 213:nobodyさん 08/03/22 11:32:56 うぅーん、そうなると 私が意図したものは どう書けばいいのだろうか??? 214:nobodyさん 08/03/22 12:54:31 出来た!実に単純だった。 my @digits = ('A'..'Z'); print &to_base($Number10,\@digits); sub to_base { my $num = shift; my $digits = shift; my $dignum = @{$digits}; my $result = ''; while ($num > 0) { substr($result,0,0) = $$digits[ $num % $dignum ]; $num = int ($num / $dignum) - 1; } return length $result ? $result : $$digits[0]; } 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch