『プログラミング Clojure』の「第4章 シーケンスと使ったデータの統合」を Common Lisp の SERIES でやってみる

まだ途中まで。

;;;; 『プログラミング Clojure』の「第4章 シーケンスと使ったデータの統合」を
;;;; Common Lisp の SERIES でやってみる。
(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :series)
  (use-package :series))

(series::install)

;; (range 10)
(scan-range :below 10)
;;=> #Z(0 1 2 3 4 5 6 7 8 9)

;; (range 10 20)
(scan-range :from 10 :below 20)
;;=> #Z(10 11 12 13 14 15 16 17 18 19)

;; (range 1 5 2)
(scan-range :from 1 :below 25 :by 2)
;;=> #Z(1 3 5 7 9 11 13 15 17 19 21 23)

;; (repeat 5 1)
(subseries (series 1) 0 5)
;;=> #Z(1 1 1 1 1)

;; (repeat 10 "x")
(subseries (series "x") 0 10)
;;=> #Z("x" "x" "x" "x" "x" "x" "x" "x" "x" "x")

;; (take 10 (iterate inc 1))
(subseries (scan-fn t #'* #'1+) 0 10)
;;=> #Z(1 2 3 4 5 6 7 8 9 10)
(scan-range :from 1 :upto 10)
;;=> #Z(1 2 3 4 5 6 7 8 9 10)

;; (defn whole-numbers [] (iterate inc 1))
(defun whole-numbers ()
  (scan-range :from 1))

;; (take 20 (repeat 1))
(subseries (series 1) 0 20)
;;=> #Z(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)

;; (take 10 (cycle (range 3)))
(subseries (series 0 1 2) 0 10)
;;=> #Z(0 1 2 0 1 2 0 1 2 0)
(subseries (apply #'series (collect (scan-range :below 3))) 0 10)
;;=> #Z(0 1 2 0 1 2 0 1 2 0)

;; (interleave (whole-numbers) ["A" "B" "C" "D" "E"])
(collect-append (map-fn t #'list (whole-numbers) #z("A" "B" "C" "D" "E")))
;;=> (1 "A" 2 "B" 3 "C" 4 "D" 5 "E")
;; シリーズを返したいところ。

;; (interpose "," ["apples" "bananas" "grapes"])
;; パス。loop で。
(loop for (x xs) on '("apples" "bananas" "grapes")
     collect x if xs collect ",")
;;=> ("apples" "," "bananas" "," "grapes")

loop-finish

Common Lisp の loop からぬける loop-finish なんてのがあったのか。

(loop for i in '(1 3 5 4 8 7)
      if (evenp i)
        do (loop-finish)
      collect i)
;;=> (1 3 5)

(loop for i in '(1 3 5 4 8 7)
      if (evenp i)
        do (loop-finish)
      collect i
      finally (print "hello"))
;;=> (1 3 5)
;;   hello

いままで知らなかったから、こんなふうに書いてたよ。

(loop for i in '(1 3 5 4 8 7)
      if (evenp i)
        do (return x)
      collect i into x)
;;=> (1 3 5)

Clojure Leiningen @ Shibuya.lisp テクニカルトーク #5

Clojure の Leiningen で以前挫折をした。いやむしろ SLIME がちゃんと動かなくて嫌になった。

@making さんの LT "Clojure＋Leiningenで3分Hadoop" で Clojure の Leiningen がちゃんと動いくことの確信を得たのでリトライする。

目標は

• Leiningen でプロジェクトを作る。
• Leiningen で swank server を起動して、SLIMEでインタラクティブ開発。
• 単体実行 jar の作成。

シェルで次を実行。a はプロジェクト名。

lein new a

./a/project.clj を編集

• lein swank で swank server を起動するために :dev-dependencies を追加
• lein uberja で作る単体実行 jar のエントリポイントを指定する :main を追加

(defproject a "1.0.0-SNAPSHOT"
  :description "FIXME: write"
  :dependencies [[org.clojure/clojure "1.1.0"]
                 [org.clojure/clojure-contrib "1.1.0"]]
  :dev-dependencies [[leiningen/lein-swank "1.1.0"]]
  :main a.core)

シェルで次を実行し依存ライブラリの取得後、swank server を起動する。

lein deps
lein swank

Emacs から M-x slime-connect とすると、ちゃんと SLIME 動いた。補完もちゃんと動いた。別途、Emacs + SLIME まわりの設定は必要なので、それは後述する。

./a/src/a/core.clj を編集

• :gen-class を追加
• -main を追加

(ns a.core
  (:gen-class))

(defn -main [& args]
  (. javax.swing.JOptionPane (showMessageDialog nil "Hello World")))

シェルで

lein uberjar
chmod +x ./a-standalone.jar
./a-standalone.jar

以上、目標達成。

後述予定の Emacs + SLIME まわり。

github から swank-clojure と clojure-mode を git clone しておく。 ~/.emacs の設定は SBCL の最新 SLIME とかぶらないように無理をしている。うまく両立する方法はないものだろうか？おまけに Google App Engine を SLIME から起動しようとしたときの残骸も残ってる。

(defun clojure ()
  (interactive)
  (add-path "~/letter/clojure/lib/clojure-mode")
  (add-path "~/letter/clojure/lib/slime")
  (add-path "~/letter/clojure/lib/slime/contrib")
  (eval-after-load "slime"
    '(progn
       (slime-setup '(slime-repl
                      slime-fuzzy
                      slime-banner))
       (setq slime-complete-symbol*-fancy t)
       (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
       (global-set-key [(control ?\;)] 'slime-selector)
       (loop for (key command) in
             '(([(control ?c) ?\;]              slime-insert-balanced-comments)
               ([(control ?u) (control ?c) ?\;] slime-remove-balanced-comments)
               ([(control ?c) ?\;]              slime-insert-balanced-comments)
               ("\C-j"                          slime-eval-print-last-expression)
               ("\C-m"                          newline-and-indent)
               ("\C-i"                          slime-indent-and-complete-symbol))
             do (define-key slime-mode-map key command))))
  (setq swank-clojure-classpath
        '("~/letter/java/eclipse-workspace/moeopa-clj/src"
          "~/letter/java/eclipse-workspace/moeopa-clj/war/WEB-INF/classes"
          "~/letter/clojure/lib/swank-clojure/src"
          "~/letter/clojure/lib/clojure/clojure.jar"
          "~/letter/clojure/lib/clojure-contrib/clojure-contrib.jar"
          "~/letter/clojure/lib/appengine-clj/appengine-clj.jar"
          "~/letter/clojure/lib/compojure/compojure.jar"
          "~/letter/clojure/lib/compojure/deps/commons-codec-1.3.jar"
          "~/letter/clojure/lib/compojure/deps/commons-fileupload-1.2.1.jar"
          "~/letter/clojure/lib/compojure/deps/commons-io-1.4.jar"
          "~/letter/clojure/lib/compojure/deps/jetty-6.1.15.jar"
          "~/letter/clojure/lib/compojure/deps/jetty-util-6.1.15.jar"
          "~/letter/clojure/lib/compojure/deps/servlet-api-2.5-20081211.jar"
          "~/local/opt/appengine-java-sdk/lib/appengine-tools-api.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/appengine-local-runtime-shared.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/geronimo-el_1.0_spec-1.0.1.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/geronimo-jsp_2.1_spec-1.0.1.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/geronimo-servlet_2.5_spec-1.2.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-ant-1.6.5.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-ant-launcher-1.6.5.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-commons-el-1.0.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-commons-logging-1.1.1.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-jasper-compiler-5.0.28.jar"
          "~/local/opt/appengine-java-sdk/lib/shared/jsp/repackaged-appengine-jasper-runtime-5.0.28.jar"
          "~/local/opt/appengine-java-sdk/lib/impl/appengine-api-labs.jar"
          "~/local/opt/appengine-java-sdk/lib/impl/appengine-api-stubs.jar"
          "~/local/opt/appengine-java-sdk/lib/impl/appengine-api.jar"
          "~/local/opt/appengine-java-sdk/lib/impl/appengine-local-runtime.jar"
          "~/local/opt/appengine-java-sdk/lib/impl/agent/appengine-agentruntime.jar"
          "~/letter/clojure/lib/programming-clojure/lib/ant.jar"
          "~/letter/clojure/lib/programming-clojure/lib/ant-launcher.jar"))
  (setq slime-lisp-implementations
        `((clojure
           ("java"
            "-classpath"
            ,(concat ".:classes:"
                     (mapconcat 'identity
                                (mapcar 'expand-file-name
                                        swank-clojure-classpath)
                                ":"))
            "clojure.main"
            "--repl")
           :init swank-clojure-init)))
  (load
   (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize)
  (require 'clojure-mode)
  (require 'slime-autoloads)
  (slime)
  )

Leiningen からコマンド一発で Google App Engine の雛形プロジェクトが作成できたらいいのにな。

ということで making さんありがとうございました。

今回の Shibuya.lisp もよかったです。みなさんありがとうございました。

Common Lisp 的にはちょっとさびしかったな。