ミニチュアハウスをつくる!

オリジナルのミニチュアハウス製作、プログラミング...etc/自分サイドで綴る。。。

フィボナッチ数列/EmacsLisp。。。

本日は5時頃起きる。

インフルもだいぶ治ってきた感じだな。。。

フィボナッチ数列

youtubeを見ていて、フィボナッチ数列と言う面白いものを発見。

フィボナッチ・・・みょ~~な響きだな。

いろいろ、自然を見て解析してるんだなぁ。。。っと。

詳しくは、したのyoutubeにて。

面白いのでn番目のフィボナッチ数を算出するelispを作ってみた。

 

※朝に出したやつに、一番目が1、二番目が1、三番目が2となるように修正を加えた。。。

  (defun fiboNum ()
    (interactive)
    (re-func1 "fiboNum")
    (let (Fn FnNum loops nx (n2 1) (n1 1) (n3 1) )
      (setq nx (read-number "何番目のフィボナッチ数を計算しますか?(1~): "))
      (cond ( (= nx 1)
             (setq loops 1)
             (setq FnNum 1))
            ( (= nx 2)
             (setq loops 2)
             (setq FnNum 1))
            ( (> nx 2)
             (setq loops (- nx 2))
             (while (>= loops n3)
               (setq FnNum (+ n1 n2))
               (setq n1 n2)
               (setq n2 FnNum)
               (setq n3 (+ n3 1)))))
      (setq Fn (format "%s番目のフィボナッチ数: %s\n" nx FnNum))
      (goto-char (point-min))
      (insert Fn)
      (forward-line -1)
      (end-of-line)))

 

f:id:lis2016zz:20190110174857p:plain

 


フィボナッチ数列

 

ペンケム模型作品(Instagram)
PenkeM作品集

 

にほんブログ村 ハンドメイドブログ ミニチュアドールハウスへ にほんブログ村 鉄道ブログ 鉄道模型へ にほんブログ村 鉄道ブログ 鉄道模型 レイアウト製作(ストラクチャー)へ

-Penkem Works-