問題 #2 - 回答 #61

Base32

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

回答 #61

tadsan が 2024-03-08 05:25:17 に投稿

コード

383 byte

$s=fread(STDIN,9999);$c=$p=0;while($c<strlen($s)){$m[$p]??=0;switch ($s[$c]) {case'>':$p++;break;case'<':$p--;break;case'+':$m[$p]++;break;case'-':$m[$p]--;break;case'.':echo chr($m[$p]);break;case'[':if(!$m[$p]){for($d=1;$d>0;$c++){if($s[$c]=='[')$d++;elseif($s[$c]==']')$d--;}}break;case']':if($m[$p]){for($d=1;$d>0;$c--){if($s[$c]==']')$d++;elseif($s[$c]=='[')$d--;}}break;}$c++;}

実行結果