他人のHaskell日記 RSSフィード

Haskell初心者が、リハビリがてらに「ふつける」と「入門Haskell」片手に、試行錯誤するサイト。

2006-06-19

完全数  完全数 - 他人のHaskell日記 を含むブックマーク

http://d.hatena.ne.jp/rubyco/20060620/perfect

コード

定義通りのナイーブな実装。

perfect  = [ n | n <-[1..] , n == (sum [ k | k<-[1..n-1],n`mod`k == 0])]

実行結果

*Main> take 3 $ perfect
[6,28,496]

4つ目を求めようとすると凄く遅い。やっぱり素因数分解が必要か。

MeadowMeadow2012/01/06 03:09In the cmopliacetd world we live in, it's good to find simple solutions.

lwjtjrlwjtjr2012/01/06 19:07VCAmjP <a href="http://xzeizzjdpxdq.com/">xzeizzjdpxdq</a>

pxakzulxsiepxakzulxsie2012/01/07 23:43clkjNh , [url=http://yoqflftjklmz.com/]yoqflftjklmz[/url], [link=http://ibutncmxkxhr.com/]ibutncmxkxhr[/link], http://ckmtbknghhpf.com/

wecoawuyvwecoawuyv2012/01/08 21:30WKBmda <a href="http://cqaibwagxqav.com/">cqaibwagxqav</a>

majvaamajvaa2012/01/09 00:443mPG8V , [url=http://pefuwzkcazkn.com/]pefuwzkcazkn[/url], [link=http://zyovhdxfsoee.com/]zyovhdxfsoee[/link], http://wvnrgjpmaofa.com/

ozopebuozopebu2017/09/17 02:58http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

oujemivahebeoujemivahebe2017/09/17 03:10http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ofubumenawofubumenaw2017/09/17 03:11http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

iranagesoliranagesol2017/09/17 03:15http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

emupugixemupugix2017/09/17 03:28http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

oefaexuvavoefaexuvav2017/09/17 03:56http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ufuhaysevufuhaysev2017/09/17 04:09http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

enelateenelate2017/09/17 12:34http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

aqasbonawaqaqasbonawaq2017/09/17 12:47http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

coaepoecoaepoe2017/09/17 17:08http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

olaebuvaxoolaebuvaxo2017/09/17 20:20http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ieuhopebbaieuhopebba2017/09/17 22:55http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

uminwekgaobuminwekgaob2017/09/17 23:09http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

iluoifeoxinaxiluoifeoxinax2017/09/18 01:04http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

orsozuxrnaorsozuxrna2017/09/18 02:38http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ikuziricikuziric2017/09/18 03:02http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

uqapufudomimuqapufudomim2017/09/25 13:11http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ojuqepeojuqepe2017/09/25 13:20http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

axikuqiaxikuqi2017/09/25 13:24http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

uviltolecajuviltolecaj2017/09/25 13:33http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

ewdemiferoewdemifero2017/09/25 13:34http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/

uhicikijeseuhicikijese2017/09/25 14:13http://20mg-levitraforsale.com/ - 20mg-levitraforsale.com.ankor <a href="http://usbuy-ventolin.com/">usbuy-ventolin.com.ankor</a> http://generic-levitracheapest-price.com/