[Mew-dist 819] Re: C-u digit

[Kazu Yamamoto 山本和彦]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 812] Re: C-u digit
Date: Fri, 04 Apr 1997 15:17:57 +0900

> # ただ、どうもこのコードでは美しくないなあ。
> # mew-subvertor を string も取れるようにすれば、もう少し簡潔に書けるかな。

酒井さん、

こんなのはどうでしょう？

(defun mew-subsequence seq beg &optional end
  (cond
   ((vectorp seq)
    (mew-subvector seq beg end))
   ((stringp seq)
    (substring  seq beg end))
   ((listp seq)
    (mew-sublist seq beg end))
   (t nil)
   )
  )

(defun mew-sublist (list beg &optional end)
  (let (i ret)
    (if (null end) (setq end (length list)))
    (setq end (1- end))
    (setq i end)
    (while (<= beg i)
      (setq ret (cons (nth i list) ret))
      (setq i (1- i)))
    ret
    )
  )

--かず＠プログラムは美しきを厭わず