問題 #2 - 回答 #84

Base32

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

回答 #84

m3m0r7 が 2024-03-08 14:56:11 に投稿

コード

250 byte

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

実行結果

NBXWOZI==
OBUXS3Y==
MZ2WOYI==

4OAYNY4BRPRYFCXDQGX6HAMS======
4OA2VY4BRTRYFCPDQGDOHAMX======
4OBI7Y4BTHRYFCPDQKBOHANB======

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

MEQGEIDD======
EAQOHAMC4OAYIIHDQGDCBY4BRAQOHAMK======