p-baleine

cat textfile | juman | awk -f wakati.awk

p-baleine

p-baleine

p-baleine

html {
    background: url(http://line-stamps.me/wp-content/uploads/2015/08/main39.png)
}

p-baleine

p-baleine

p-baleine

p-baleine

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

p-baleine

(require '[clojure.core.match :refer [match]])

;; (add [[7 3] [-1 2]] [[4 2] [3 -1]]) ;; => [[11 5] [[2 1]]]

(defn add [lhs rhs]
  (match [lhs rhs]
    [(l :guard number?) (r :guard number?)] (+ lhs rhs)
    [(l :guard vector?) (r :guard vector?)] (vec (map add lhs rhs))))

;; (transpose [[5 2] [6 3] [-2 0]]) ;; => [[5 6 -2] [2 3 0]]

p-baleine

(defn eratosthenes
  "finding all prime numbers up to `x`"
  [x]
  (letfn [(continue? [x list]
            (< (first list) (Math/sqrt x)))
          (go [x list primes]
            (if (continue? x list)
              (let [head (first list)
                    new-list (filter #(not (= (mod %1 head) 0)) (rest list))]
                (recur x new-list (cons head primes)))