就職を追加しました。

難読化の第2弾です。今回使用するのはAcme::Bleachです。使い方は簡単で、難読化したいソースにuse Acme::Bleach;を追加するだけ。この前と同じプログラムでやってみましょう。 use strict; use Acme::Bleach; while (<>) { 1 while $_ =~ s/(.*\d)(\d{3})/$…

与えられた数字のケタ数です。割と簡単。 nums = [2469, 600, 1] main = do print $ map keta nums keta :: Int -> (Int, Int) keta n = let s = show n l = length s in (l, 10 ^ (l - 1)) タイトルに書いた通りなのですが、変数名を1文字にするというのに…