問題 #2 - 回答 #83

Base32

RFC 4648 で定義された Base32 エンコーディングを実装してください。 標準入力から与えられる各行に対し、Base32 エンコードをおこなった文字列を標準出力へ改行区切りで出力してください。 なお、アルファベットの出力には大文字を用いてください。

回答 #83

m3m0r7 が 2024-03-08 14:17:24 に投稿

コード

268 byte

for($l="strlen",$m='array_map',$j='join';$s=fgets(STDIN);)echo$j($m(fn($b)=>[...range('A','Z'),2,3,4,5,6,7][bindec(str_pad($b,5,0))],str_split($a=$j($m(fn($v)=>str_pad(decbin($v),8,0,0),unpack('C'.$l($s)-1,$s))),5))),['======','====','===','='][$l($a)%40/8-1]??'',"
";

実行結果

NBXWOZI=
OBUXS3Y=
MZ2WOYI=

4OAYNY4BRPRYFCXDQGX6HAMS
4OA2VY4BRTRYFCPDQGDOHAMX
4OBI7Y4BTHRYFCPDQKBOHANB

GEZDGNBVGY3Q====
GEZA====
GEZDGNBVGY3TQOJQ
GEZDGNBVGY3TQ===
GEZDG===
GEZDGNBV
GEZDGNBVGY3TQOI=
GEZDGNA=
GE======
GEZDGNBVGY======

MEQGEIDD
EAQOHAMC4OAYIIHDQGDCBY4BRAQOHAMK