2018年05月01日

マイ キャンバス

IMG_1060.JPG

マイ キャンバス 
赤城山と谷川岳を独り占めです。
テンポラリで21MHz 4EL あげて運用したことがありますが、現在は草刈りと
避暑? (家より暑いけど・・・)です。

デッキ建築当時の写真です。 今はかなり色褪せています。
posted by ja1nku at 21:13| Comment(0) | TrackBack(0) | 日記

2018年04月06日

Lisp に 泣き lisp で 笑う

Common Lisp を始めてもう3年なかなか
上達はしない。

やっと do がなんとかなってきた。

;;;  同じ数のリストを作る。
;;; (make_list_num_times 2 10)=>(2 2 2 2 2 2 2 2 2 2)
(defun make_list_num_times ( num times )
(do ((i 0 (1+ i))
( s_list nil (cons num s_list)))
(( = i times ) s_list)))


(do
(
[初期条件 変数の定義は let 不要  変数の増減 ]
)
(
[ 脱出条件とその後の処理
)


(LOOP
(cond (条件) (return [条件成立後の処理]))
([condの条件不成立時の処理 (加算とか) setq 定義必要])
)
posted by ja1nku at 22:51| Comment(0) | 日記

2016年06月18日

落書き2




posted by ja1nku at 07:07| Comment(0) | 日記