Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2008-03-22

ArcでL-99 (P41a ゴールドバッハ予想をリスト表示)

| 01:10 | ArcでL-99 (P41a ゴールドバッハ予想をリスト表示) - わだばLisperになる を含むブックマーク はてなブックマーク - ArcでL-99 (P41a ゴールドバッハ予想をリスト表示) - わだばLisperになる

今回のお題は、ある数値の範囲を与え、その範囲のゴールドバッハ予想をリスト表示するというものです。

前回定義したgoldbachを使用します。

おまけの質問があるのですが、それは、P41bということで次回に解答することにしました。

(goldbach-list 9 20)
;=> 10 = 3 + 7
;   12 = 5 + 7
;   14 = 3 + 11
;   16 = 3 + 13
;   18 = 5 + 13
;   20 = 3 + 17

(def goldbach-list (start end)
  (each a (range start end)
    (whenlet (x y) (goldbach a)
      (prf "#a = #x + #y\n"))))