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-23

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

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

前回のものをさらにひねって、2〜3000の範囲で該当するものが何件あるかと求めよ、とのこと。

目視で数えるのはアレなので、数えるプログラムを書いてみました。

(goldbach-list/c 2 3000 50)
;=> 10

(def goldbach-list/c (start end limit)
  (count (fn ((x y)) (< limit (min x y)))
         (trues goldbach (range start end))))

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

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

前回は範囲をそのまま出力するものでしたが、ちょっとひねって、50より大きいものだけを出力するというものです。

ちょっと改造して終了。

(goldbach-list/b 1 3000 50)
;=> 992 = 73 + 919
;   1382 = 61 + 1321
;   1856 = 67 + 1789
;   1928 = 61 + 1867
;   2078 = 61 + 2017
;   2438 = 61 + 2377
;   2512 = 53 + 2459
;   2530 = 53 + 2477
;   2618 = 61 + 2557
;   2642 = 103 + 2539

(def goldbach-list/b (start end limit)
  (each p (range start end)
    (whenlet (x y) (goldbach p)
      (when (< 50 (min x y))
        (prf "#p = #x + #y\n")))))