🚀 go-pugleaf

$B8M3a!wIY;NDL$G$9!#(B

> Mick-Lisp $B$N%A%e!<%H%j%"%k$NBhFs2sL\$G$9!#(B
> $B:#2s$O!"(Bassoc $B$H(B member $B$N(B Mick-Lisp $BHG$G$9!#(B
> 
> (defun-naive ::assoc (key lst)
>   (catch '%tag
>     (for (x lst) (if (equal key (car x)) (throw '%tag x)))
>     )
>   )
> 
> (defun-naive ::member (obj lst)
>   (catch '%tag
>     (for (x lst) (if (equal obj x) (throw '%tag t)))
>     )
>   )

$B4X?tDj5A$K8m$j$,$"$j$^$7$?!#0J2<$,@5$7$$Dj5A$G$9!#(Bm(_ _)m
( "(x list)"($B8m(B) $B"*(B "((x list))"($B@5(B) )

(defun-naive ::assoc (key lst)
  (catch '%tag
    (for ((x lst)) (if (equal key (car x)) (throw '%tag x)))
    )
  )

(defun-naive ::member (obj lst)
  (catch '%tag
    (for ((x lst)) (if (equal obj x) (throw '%tag t)))
    )
  )

-- 
/**********************************************************************
 * Akio TOKAJI (tokaji@db.nm.fujitsu.co.jp) / Fujitsu Limited
 *
 *       "Imagination is more important than knowledge"
 *                  (fortune cookie's message)
 **********************************************************************/