Twitterの最低限の機能をメールで済ませてしまおうという計画のもとに作ったスクリプト．要PEAR::Mail，PEAR::Net::POP3． APIを使わないのは回数制限を回避するため，自分のTLを使わないのは遅延を回避するため，のつもり． まだ投稿部分ができていない．fo…

http://projecteuler.net/index.php?section=problems&id=25 -- Haskell, 090104 import List (findIndex) import Maybe (fromJust) import Sequence (fibonacci) main = print $ (+) 1 $ fromJust $ findIndex ((<=) 1000 . length . show) fibonacci 数列…

-- Haskell, 090105 module Prime (prime, isprime) where -- 素数 prime :: Integral a => [a] prime = 2 : filter (\n -> (all (\x -> n`mod`x/=0) . takeWhile (\x -> x*x<=n)) prime) [3..] -- 素数判定 isprime :: Integral a => a -> Bool isprime n =…

-- Haskell, 090104 module Sequence (prime, fibonacci, factorial, trianglar) where import qualified Prime (prime) -- 素数 prime = Prime.prime -- フィボナッチ数 fibonacci :: Integral a => [a] fibonacci = 1 : 1 : zipWith (+) fibonacci (tail f…

無用の科学あるいは錬金術様にて公開されたMakeYourDayのスクリプトがtwitterの仕様変更のためか動かなかったので修正． 致命的なのは41行目の正規表現．以下のように修正すれば動きました． # Ruby, 20090102 /<span class="entry-content">\s*(.+?)(\s*<a href="http:\/\/twitter\.com\/[^\/]+\/status\/\d+">\.\.\.<\/a>|\s*)<\/span>\s*<span class="meta entry-meta">\s*</span></a></span>

http://projecteuler.net/index.php?section=problems&id=26 --Haskell (needs -package containers), 20090102 import List (elemIndex) import Maybe (fromJust) import Data.Map (findMax, fromList) search :: Int -> (Int, Int) search n = (fromJust $…