knjname

(def var-pattern #"\$\{(.+?)\}")

(defn compile-var-subst-only-template-fn
  ([template data-symbol]
     (compile-var-subst-only-template-fn template data-symbol 0 (gensym)))
  ([template data-symbol start-pos sb-symbol]
     `(let [~sb-symbol (StringBuilder. )]
        ~@(loop [m (re-matcher var-pattern template)
                 last-pos 0
                 expr-list []]

knjname

;; http://projecteuler.net/problem=2

(def fib
  (memoize
   (fn [n]
     (cond
      (= n 0) 1
      (= n 1) 2
      true (+ (fib (- n 1)) (fib (- n 2)))))))

knjname

(def sqrt [n]
  (Math/sqrt n))

(defn find-max-factor [n]
  (let [max-range (long (Math/ceil (sqrt n)))]
    (loop [i max-range]
      (if (= 0 (mod n i))
        (max i (/ n i))
        (recur (- i 1))))))

knjname

(defn palindromic? [n]
  (let [straight (seq (str n))
        reversed (reverse straight)]
    (= straight reversed)))

(palindromic? 9009) ; true
(palindromic? 909) ; true
(palindromic? 1023) ; false

knjname

;;; First version
(defmacro -<> [subject & body]
  `(let [~'<> ~subject]
     ~(if (empty? body)
        '<>
        `(-<> ~(first body)
              ~@(rest body)))))

(-<> "asdf"
     (.length <>)

knjname

(def var-pattern #"\$\{(.+?)\}")
(def section-pattern #"@\{(\w+)(.*?)\}")
(def section-tokens #"\S+")

(def template-section-definitions (atom {}))

(defn get-template-generator [name]
  (get @template-section-definitions name))

(defn def-template-section [section-name body-generator]

knjname

$ ->
    $pref = $('#preference')
    $prefList = $('#preference_list')
    $favs = $('#favorites')
    $rank = $('#ranking')
    $rankList = $('#ranking_list')
    answers = {}

    favorites = []
    

knjname

global = @

$ ->
    # モデル
    model =
        golds: 0
        products: []
        events: {}
        greeting: ''
        cart: {}

knjname

$givenValue = 10

function testIfSupportingClosure(){
    $givenValue = 4
    {
        $givenValue = $givenValue + 1
        echo "The givenValue is ${givenValue}."
    }
}

knjname

dupStr = (str, n) -> (str for _ in [1..n]).join('')

testRegexp = (r, str, cnt) ->
    startTime = + new Date()
    for _ in [1..cnt]
        throw new Error("#{r} has matched!!") if str.match r 
    finishTime = + new Date()
    
    finishTime - startTime