tnoborio

;; 第1回 Scheme コードバトン
;;
;; ■ これは何か？
;;   Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;;   (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

tnoborio

(use 'clojure.contrib.str-utils)

(def digits {\零 0 \一 1 \二 2 \三 3 \四 4 \五 5 \六 6 \七 7 \八 8 \九 9})

(def n-keta {\千 1000, \百 100, \十 10})

(defn digit-and-rest [s & rest]
  (if-let [n (digits s)]
    [n rest]
    [1 (cons s rest)]))

tnoborio

# original https://gist.github.com/715378
# thanks hakobe!
# Macで動作確認。Windowsの場合、spawnを使うとよいらしい。 参考: https://gist.github.com/325036

require 'webrick'

server = WEBrick::HTTPServer.new({
  :DocumentRoot => nil,
  :BindAddress => '0.0.0.0',
  :Port => 9090