Clojureを使ってみた

JavaVMで動作するlisp方言らしい。
遅延シーケンス、並列コンピューティング、Javaとの連携等々が特徴。
まず試しにいつものこれ。

view plainprint?

1. (println "hello Clojure!")  

(println "hello Clojure!")

printlnってのがそれっぽい。
次にFizzBuzz。

view plainprint?

1. (defn fizz-buzz [n]  
2.  (if (not= n 0)  
3.    (do  
4.      (fizz-buzz (- n 1))  
5.        (if (= (mod n 15) 0)  
6.          (println "FizzBuzz")  
7.            (if (= (mod n 5) 0)  
8.              (println "Buzz")  
9.                (if (= (mod n 3) 0)  
10.                  (println "Fizz")  
11.                    (println n)))))))  
12.   
13. (fizz-buzz 31)  

(defn fizz-buzz [n]
 (if (not= n 0)
   (do
     (fizz-buzz (- n 1))
       (if (= (mod n 15) 0)
         (println "FizzBuzz")
           (if (= (mod n 5) 0)
             (println "Buzz")
               (if (= (mod n 3) 0)
                 (println "Fizz")
                   (println n)))))))

(fizz-buzz 31)

先述の通り、Javaのクラスも利用可能。試しにsqliteを使ってみる。

view plainprint?

1. (import '(java.sql DriverManager)  
2.         '(java.sql Connection)  
3.         '(java.sql PreparedStatement)  
4.         '(java.sql ResultSet))  
5.   
6. (Class/forName "org.sqlite.JDBC")  
7.   
8. (def con (DriverManager/getConnection "jdbc:sqlite:test.db"))  
9. (def st (.createStatement con))  
10.   
11. (.execute st "create table table1( msg string, id integer )")  
12. (.execute st "insert into table1 values (\"Fizz\", 3)")  
13. (.execute st "insert into table1 values (\"Buzz\", 5)")  
14. (.execute st "insert into table1 values (\"FizzBuzz\", 15)")  
15.   
16. (defn print-result [rs]  
17.  (if (.next rs)  
18.    (do  
19.      (println (.getString rs 1) (.getInt rs 2))  
20.      (print-result rs))))  
21.   
22. (print-result (.executeQuery st "select * from table1"))  
23.   
24. (.close st)  

(import '(java.sql DriverManager)
        '(java.sql Connection)
        '(java.sql PreparedStatement)
        '(java.sql ResultSet))

(Class/forName "org.sqlite.JDBC")

(def con (DriverManager/getConnection "jdbc:sqlite:test.db"))
(def st (.createStatement con))

(.execute st "create table table1( msg string, id integer )")
(.execute st "insert into table1 values (\"Fizz\", 3)")
(.execute st "insert into table1 values (\"Buzz\", 5)")
(.execute st "insert into table1 values (\"FizzBuzz\", 15)")

(defn print-result [rs]
 (if (.next rs)
   (do
     (println (.getString rs 1) (.getInt rs 2))
     (print-result rs))))

(print-result (.executeQuery st "select * from table1"))

(.close st)

少しもlisp方言っぽくない描き方な気がするけど、気にしない。
ちなみに、わざわざJavaからやらなくてもclojure.contribというのを使えば利用できるそうな。

Clojureが無理だとしても、Blogger Syntax Highliterがlispをサポートしてないことに衝撃。
prettifierと併用。それでも微妙に変・・・。

参考にしたページを私的メモ
Clojure
「プログラミングClojure」
Clojure Javaのコンストラクタ、メソッド、フィールドへのアクセス
Clojure のエレガントなところ
SQLite from Clojure