屑俺日記

☆ gphoto2

D40は対応機種だった。製作者たちに感謝を。

$ gphoto2 -a
'/usr/lib/x86_64-linux-gnu/libgphot... |                     \   0.0%          
'/usr/lib/x86_64-linux-gnu/libgphot... |                     |   1.6%          
'/usr/lib/x86_64-linux-gnu/libgphot... |-                    /   3.1%          
'/usr/lib/x86_64-linux-gnu/libgphot... |-                    -   4.7%          
'/usr/lib/x86_64-linux-gnu/libgphot... |-                    \   6.2%          
'/usr/lib/x86_64-linux-gnu/libgphot... |--                   |   7.8%
.
.
.
'/usr/lib/x86_64-linux-gnu/libgphot... |-------------------- \  93.8%          
'/usr/lib/x86_64-linux-gnu/libgphot... |-------------------- |  95.3%          
'/usr/lib/x86_64-linux-gnu/libgphot... |-------------------- /  96.9%          
'/usr/lib/x86_64-linux-gnu/libgphot... |---------------------|  98.4%          
 
カメラの性能                     : Nikon DSC D40 (PTP mode)
シリアルポートのサポート         : いいえ
USB サポート                     : はい
取り込みの選択                   :
                                 : 画像
                                 : Trigger Capture
セッティングのサポート           : はい
カメラ内の選択ファイルの削除     : はい
カメラ内の全ファイルの削除       : いいえ
プレビューのサポート             : はい
ファイルアップロードのサポート   : はい

$ gphoto2 --capture-image-and-download                          
新しいファイルの格納場所: /capt0000.jpg                                        
ファイルを capt0000.jpg で保存します
カメラ内のファイル /capt0000.jpg の削除をしています

☆ どこからどこまで

抽出。sed -n 3,5p みたいに。

(defun from_until (a b lat)
  (cond
   ((null lat) nil)
   ((and (> b 0) (< a 2))
    (cons (car lat) (from_until (1- a) (1- b) (cdr lat))))
   (t
    (from_until (1- a) (1- b) (cdr lat)))))
 
(from_until 3 6 '(1st 2nd 3rd 4th 5th 6th 7th))
(3rd 4th 5th 6th)

0から数えたほうが素直だったかも。

☆ 偶数か奇数か

もう少しまともな方法もあるような気がするが、とりあえず 考えついたことを。

(define even_odd
  (lambda (n)
    (cond
     ((eq? n 0) #t)
     ((eq? n 1) #f)
     (else
      (even_odd (- n 2))))))
 
(even_odd 19)
#f
(even_odd 218)
#t