トップページ > プログラム > 2014年10月15日 > PeoOzmXl

書き込み順位＆時間帯一覧

54 位/163 ID中時間01234567891011121314151617181920212223Total
書き込み数0000000000000001000000001



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん
プログラミングのお題スレ Part5

書き込みレス一覧

プログラミングのお題スレ Part5
305 ：デフォルトの名無しさん[sage]：2014/10/15(水) 15:34:55.70 ID:PeoOzmXl
>>304 Haskell
main = print $ filter (\x -> base 9 x == reverse (base 10 x)) [0..10000000]

base b 0 = []
base b n = n `mod` b : base b (n `div` b)

> [0,1,2,3,4,5,6,7,8,445,313725,3454446]
効率のいい求め方がある気がする


※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。