【Perl,PHP】LLバトル ..
65:デフォルトの名無しさん
09/07/26 23:35:23
>>43
横レスだが
drop 49 $ take 100 $ filter (\x -> (foldr ((+) . product . enumFromTo 1 . read . (flip (:) [])) 0 . show) x == x) [1..]
直感的に書くとこんな感じかな？
49と100の部分を変えればどうとでも書けるよ。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5501日前に更新/165 KB
担当:undef