読者です 読者をやめる 読者になる 読者になる

argius note

プログラミング関連

開発しています



アルファベットの繰り上がり

Perl

こんなのがあるんですね→どう書く?org
もっとも手っ取り早い方法だとこう?

print join ", ", ("A".."CV");

でも、これだと1から100というのが見えない。
これなら、数値の範囲が分かり易いかな。

print join ", ", map { $a = "A"; for (2..$_) { $a++ } $a } (1..100);

しかし、これは非常に見苦しいですね。もうPerl忘れかけです...