問題 #2 - 回答 #82

+ + +

Base32

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

回答 #82

+ m3m0r7 が 2024-03-08 13:37:42 に投稿 +

コード

+ 286 byte +

$l="strlen";$m='array_map';$j='join';while($s=fgets(STDIN))echo$j($m(fn($b)=>'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567'[bindec(str_pad($b,5,'0'))],str_split($a=$j($m(fn($v)=>sprintf("%08s",decbin($v)),unpack('C'.$l($s)-1,$s))),5))),[8=>'======',16=>'====',24=>'===',32=>'='][$l($a)%40]??'',"
+";

実行結果

+ ステータス: OK +

テストケース 1

+ ステータス: OK +

標準出力

NBXWOZI=
+OBUXS3Y=
+MZ2WOYI=
+
+

標準エラー出力

テストケース 2

+ ステータス: OK +

標準出力

4OAYNY4BRPRYFCXDQGX6HAMS
+4OA2VY4BRTRYFCPDQGDOHAMX
+4OBI7Y4BTHRYFCPDQKBOHANB
+
+

標準エラー出力

テストケース 3

+ ステータス: OK +

標準出力

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

標準エラー出力

テストケース 4

+ ステータス: OK +

標準出力

MEQGEIDD
+EAQOHAMC4OAYIIHDQGDCBY4BRAQOHAMK
+
+

標準エラー出力

+ +