Yoshinori Kohyama kohyama

TCP-BIN

An example client code to binary-communicate with a TCP server.

TCP サーバとバイナリ通信するクライアントコードの例です.

Usage / 使い方

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.

	(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]]]

	(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))

	% ntmux 5000 irb
	irb(main):001:0>