Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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]; }
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4944日前に更新/211 KB
担当:undef