屑俺日記

☆ 慣れが大切か

バスの中で色々。

(defun mylist (n)
  (cond
   ((zerop n) nil)
   (t
    (cons n (mylist (1- n))))))
 
(mylist 30)
(30 29 28 27 26 25 24 23 22 21 20 19 ...)

(defun mytail (l)
  (cond
   ((null l) nil)
   ((null (cdr l)) (car l))
   (t
    (mytail (cdr l)))))
 
(mytail (mylist 50))
1

1から数えることとする。

(defun mytailn (l n)
  (cond
   ((null l) nil)
   ((<= n 0) (cons (car l) (mytailn (cdr l) (1- n))))
   (t
    (mytailn (cdr l) (1- n)))))
 
(mytailn '(1 2 3 4 5 6) 4)
(5 6)

☆ ScratchでPongみたいなの

矢印キーで左右に動かす スプライト、 跳ねるボール、そして絶対に取りこぼさない トランポリン。

画像キャプチャのためにボールの動きはかなり遅くしたが ビデオの方はかなり速く動くようにできてしまった。

<追記>
スクリプトも公開しておく。
</追記>