projecteuler28

 projecteuler問題28は、自然数をらせん状に並べ、角の数値のみを足した和を求めるもの。といっても、一辺が 1001 になるまでですが(笑)
 スクリプトは単純、

(let (i 1 j 2 lst '(1))
  (while (< j 1001)
    (dotimes (k 4) (++ i j) (push i lst -1))
    (++ j 2))
   (println lst)
   (apply + lst)
   )

 こんな感じ。一週ごとに求める自然数の間隔が2つずつ増えていくのがミソ。
 これを実行すると

(1 3 5 7 9 13 17 21 25 31 37 43 49 57 65 73 81 91 101 111 121 133 145 157 169 183 
 :
 986049 987043 988037 989031 990025 991021 992017 993013 994009 995007 996005 997003 
 998001 999001 1000001 1001001 1002001)
669171001
> 

 答え 669171001 が求まります。

 以上、如何でしょうか?

広告

No comments yet

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。