#:g1: GOOでL-99 (P14 各要素を2倍する)

Posted 2008-05-01 06:02:00 GMT

-(http://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.html)
GOOでもSLIMEが使えるようなので、今回使ってみました。
CVS版SLIMEのcontribの中にある、swank-goo.gooを使うのですが、CL用の設定と競合してしまうようで、slime-setupで読み込むものは、軒並み読み込まないで利用する必要があるようです。
手元で確認できたGOOのバージョンは、155でgooとg2cとありますが、g2cの方を利用。
使い勝手としては、goo-shellだとエラーの度にREPLに移動して、リスタート候補を選択するのが面倒だったのですが、SLIMEだと簡単になった、位でしょうか。飛躍的に便利になる訳ではないようです(^^;

;(dupli '(a b c c d))
;=> (a a b b c c c c d d)

;(dupli #(a b c c d)) ;=> #(a a b b c c c c d d)

;(dupli #[a b c c d]) ;=> #[a a b b c c c c d d]

;(dupli "abccd") ;=> aabbccccdd

(dg dupli (u|<seq> => <seq>))

(dm dupli (u|<seq> => <seq>) (def res (packer-fab <lst>)) (for ((x u)) (pack-in res x) (pack-in res x)) (as (class-of u) (packed res)))


comments powered by Disqus