DouKaku? 3916 dankogai: これまたOne-Linerで。＃...(アルファベットの繰り上がり)

Comment detail

これまたOne-Linerで。

＃2-36進法をカヴァーするstrtol()はあるのにその逆はないんだよなあ。

Dan the One-Liner Monger

1	perl -le 'print do{$s="";do{$s.=("A".."Z")[$_%26]}while($_=int($_/26));$s}for 0..(shift)-1' 100

すみません。修正前バグ付きのバージョンをコピペしちゃったみたいです(Aの処理)。正解はこちら。
Dan the Man to Err

% perl -le \
'print do{$z=$s="";do{$s=("A".."Z")[$_%26-($z++?1:0)].$s}while($_=int($_/26));$s}for 0..(shift)-1' \
100 | grep A
A
AA
AB
AC
AD
AE
AF
AG
AH
AI
AJ
AK
AL
AM
AN
AO
AP
AQ
AR
AS
AT
AU
AV
AW
AX
AY
AZ
BA
CA

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq