練習がてら. primes :: [Integer] primes = 2:3:5:7: (filter isPrime xs) where xs = concat $ iterate (map (+10)) [11,13,17,19] isPrime :: Integer -> Bool isPrime n | n <=1 = False isPrime n = and $ map ((==1) . (gcd n)) $ takeWhile (<=sqrt' n…

Cookie Clickerとはいま流行りのクッキー焼きゲームである. 1年くらい経って見返したときになんのことか忘れている可能性もあるので, 一応このことを書き留めておく. さて. 今, cps(cookies per second) の速さでクッキーを生産している. 現在のクッキー所持…

この記事で最終的に扱う事柄は次のようなことである： モノラルの波形があったときに, それを2chにコピーし, 片方のchにだけエフェクト(ディレイなど)を掛け, 各chそれぞれパンを振る. つまり, いわば無理やりステレオ化を行うときの話をする*1. これを処理*…

覆面算をプログラムで解く方法などはすでにググれば いくらでも出てくるとは思うが, 一応自分の記録として. 参考：覆面算 - Wikipedia あれは確か高校の頃, 友人がどっからか持ってきた問題が なかなか印象に残っているのでそれを解くことにする. 「赤いスイ…

数学関数をお手軽にFFTして遊べたら楽しいのになーとずいぶん前から思っていた. なんでそんなこと考えてたかというと, 波形をコンプで潰したときに 周波数がどうなるのかなーていうのを数学的にコントロールしたかったから. 発想としては思いつくけど実装が…