屑俺日記

☆ また適当に

S式を数えたり、特定のアトムの数を数えたりする。

(defun calclat (lat)
  (cond
   ((null lat) 0)
   (t
    (1+ (calclat (cdr lat))))))
 
(calclat '())
0
 
(calclat '(a (b) hoge 7 (e . f)))
5

((null lat) 1)の方がいいかも。

(defun calca (a lat)
  (cond
   ((null lat) 0)
   ((eq a (car lat)) (1+ (calca a (cdr lat))))
   (t
    (calca  a (cdr lat)))))
 
(calca 'foo '(bar baz fizz))
0
 
(calca 'foo '(hoge foo b c foo bar foo fo))
3

☆ くだらないのだけど

Scratchを動画にしてみた。

new () 
{ 
    HOGE=`expr $HOGE + 1`;
    scrot ${HOGE}.png
}

で撮り溜めた静止画像を切り出す。

$ for file in *.png; \
> do convert -crop 480x360+536+92 $file  \
%gt;  crop/${file}.jpg; done

後は同じスクリプトで処理。

左下で最初に戻るが、やはり不自然さが目立つ。
この絵には640x480は大きすぎたか。
ついでに全体も縮小してもうひとつ。