| (ns barnsleys-fern) | |
| (defn- affine [a b] | |
| (fn [x] (map #(apply + (conj (map * %1 x) %2)) a b))) | |
| (defn- move [x] | |
| (let [afs (mapv (partial apply affine) | |
| [[[[ 0.0 0.0 ] [ 0.0 0.16]] [0.0 0.0 ]] | |
| [[[ 0.85 0.04] [-0.04 0.85]] [0.0 1.6 ]] | |
| [[[ 0.2 -0.26] [ 0.23 0.22]] [0.0 1.6 ]] |
| (def sss | |
| (memoize | |
| (fn [s] | |
| (let [n (count s)] | |
| (cond | |
| (zero? n) '(()) | |
| (= n 1) `((~s)) | |
| :else (mapcat | |
| (fn [c] | |
| (let [[a b] (split-at c s)] |
| (defn factorize [n] | |
| ((fn f [n [h & r :as ps]] | |
| (cond (< n 2) '() | |
| (zero? (mod n h)) (cons h (lazy-seq (f (quot n h) ps))) | |
| :else (recur n r))) | |
| n prime-numbers))) |
| (def prime-numbers | |
| ((fn f [x] | |
| (cons x | |
| (lazy-seq | |
| (f (first | |
| (drop-while | |
| (fn [n] | |
| (some #(zero? (mod n %)) | |
| (take-while #(<= (* % %) n) prime-numbers))) | |
| (iterate inc (inc x)))))))) |
| (defproject nltry "0.1" | |
| :dependencies [ | |
| [org.clojure/clojure "1.7.0"] | |
| [org.clojure/tools.nrepl "0.2.11"] | |
| [lein-light-nrepl "0.1.3"] | |
| ] | |
| :aot :all | |
| :main nltry.core | |
| :repl-options {:nrepl-middleware [lighttable.nrepl.handler/lighttable-ops]} | |
| ) |
| (defn fibs [a b] (cons a (lazy-seq (fibs b (+' a b))))) | |
| (defn fizzbuzz [x] | |
| (condp #(zero? (mod %2 %1)) x | |
| 15 "FizzBuzz" | |
| 5 "Buzz" | |
| 3 "Fizz" | |
| x)) | |
| (def fibbuzz-seq (map fizzbuzz (fibs 1 1))) |
| (defn insertion-sort [ks] | |
| (reduce (fn [a x] | |
| (let [[h t] (split-with #(< % x) a)] | |
| (concat h [x] t))) | |
| [] ks)) | |
| (defn merge-sort [ks] | |
| (let [c (count ks)] | |
| (if (= c 1) ks | |
| ((fn m [[[ah & ar :as a] [bh & br :as b]]] |
| % ntmux 5000 irb | |
| irb(main):001:0> |
| (ns foo | |
| (:require [clojure.test :refer (with-test is are run-tests)])) | |
| (with-test | |
| (defn flatten-map [m kf vf] | |
| (into {} | |
| ((fn g [kv n] | |
| (if (map? n) | |
| (apply concat | |
| (keep (fn [[k v]] (g (conj kv k) v)) n)) |
An example client code to binary-communicate with a TCP server.
TCP サーバとバイナリ通信するクライアントコードの例です.
Give informations of a TCP server to the first argument as a map.
:host is a string representing an IP address or a hostname which can be forward-looked up and :port is an integer represents a port.