kurogelee’s gists

kurogelee / core.clj

Created August 15, 2014 07:13

ClojureでJubatusを利用してみる（Classifier：多値分類） ref: http://qiita.com/kurogelee/items/a971bd3dce25212088f2

	(ns jubatus-sample.core
	(:import [us.jubat.classifier ClassifierClient LabeledDatum]
	[us.jubat.common Datum]))

	(def train-data
	{"徳川" ["家康" "秀忠" "家光" "家綱" "綱吉" "家宣" "家継" "吉宗" "家重" "家治" "家斉" "家慶" "家定" "家茂" #_"慶喜"]
	"足利" ["尊氏" "義詮" "義満" "義持" "義量" "義教" "義勝" "義政" "義尚" "義稙" "義澄" "義稙" "義晴" "義輝" "義栄" #_"義昭"]
	"北条" ["時政" "義時" "泰時" "経時" "時頼" "長時" "政村" "時宗" "貞時" "師時" "宗宣" "煕時" "基時" "高時" "貞顕" #_"守時"]})

	(defn- make-datum [value]

kurogelee / recommender.clj

Created August 15, 2014 13:00

ClojureでJubatusその２（Recommender：推薦） ref: http://qiita.com/kurogelee/items/801c49e0c57016a17d2d

	(ns jubatus-sample.recommender
	(:require [clojure.java.io :as io]
	[clojure.string :as s])
	(:import [us.jubat.recommender RecommenderClient]
	[us.jubat.common Datum]))

	(defn map->datum [hmap]
	(let [d (Datum.)]
	(doseq [[k v] hmap]
	(condp instance? v

kurogelee / myhome.edn

Created August 16, 2014 02:16

ClojureでJubatusその３（Regression：回帰） ref: http://qiita.com/kurogelee/items/a4fdc1e969372bc293d0

	;
	; distance : 駅からの徒歩時間 (分)
	; space : 専有面積 (m*m)
	; age : 築年数 (年)
	; stair : 階数
	; aspect : 向き [ N / NE / E / SE / S / SW / W / NW ]
	;
	{"distance" 8
	"space" 32.00
	"age" 15

kurogelee / clj

Last active August 29, 2015 14:10

Luminusを使って簡単にWeb開発したい ref: http://qiita.com/kurogelee/items/66ee1d8fe18fdf2d9675

	[edn-config "0.2"]
	[yesql "0.4.0"]
	[domina "1.0.2"]

kurogelee / cljs

Created December 2, 2014 11:26

ClojureScriptでJQueryを使うサンプル ref: http://qiita.com/kurogelee/items/4fcede134cfda5b202e9

	(js/$
	(fn []
	(.. (js/$ "#sample-text") (on "change" #(js/alert (.. % -target -value))))
	(.. (js/$ "#sample-select") (on "change.bfhselectbox" #(js/alert "abc")))))

kurogelee / file0.txt

Created December 3, 2014 11:54

Clojureでログをspyする ref: http://qiita.com/kurogelee/items/f0f67aef0816ba48f49b

[com.taoensso/timbre "3.3.1"]

kurogelee / Pipe.java

Created December 4, 2014 18:59

Leiningenで日本語を表示する方法 ref: http://qiita.com/kurogelee/items/76ab9ed1b1330da81fe5

	/*
	* Copyright (c) 2013 Jean Niklas L'orange. All rights reserved.
	*
	* The use and distribution terms for this software are covered by the
	* Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
	* which can be found in the file LICENSE at the root of this distribution.
	*
	* By using this software in any fashion, you are agreeing to be bound by
	* the terms of this license.
	*

kurogelee / clj

Last active August 29, 2015 14:10

ClojureのオブジェクトをClojureScriptに変換する ref: http://qiita.com/kurogelee/items/9bff219edd55b35ce1af

	(ns sample
	(:require [selmer.filters :as f]))

	(f/add-filter! :cljs (fn [x] [:safe (pr-str (pr-str x))]))

kurogelee / html

Created December 9, 2014 16:08

Selmerを使ったローカルHTMLテンプレート ref: http://qiita.com/kurogelee/items/db575a4d4d2456a37ac7

	<div class="row">
	<div class="col-md-2">住所</div>
	<div class="col-md-4">

	<input id="address" class="form-control" type="text">

	</div>
	<div class="col-md-2">abc</div>
	</div>

kurogelee / (sort_(first_diff))

Last active October 19, 2017 04:29

ClojureとClojureScriptで使える関数・マクロの違い ref: http://qiita.com/kurogelee/items/0d4a27f3fbd83e0e33b2

(*' *agent* *allow-unresolved-vars* *assert* *clojure-version* *command-line-args* *compile-files* *compile-path* *compiler-options* *data-readers* *default-data-reader-fn* *e *err* *file* *fn-loader* *in* *math-context* *ns* *out* *read-eval* *source-path* *unchecked-math* *use-context-classloader* *verbose-defrecords* *warn-on-reflection* +' -' ->ArrayChunk ->Vec ->VecNode ->VecSeq -cache-protocol-fn -reset-methods EMPTY-NODE accessor add-classpath agent agent-error agent-errors alias all-ns alter alter-var-root aset-boolean aset-byte aset-char aset-double aset-float aset-int aset-long aset-short await await-for await1 bases bean bigdec bigint biginteger boolean-array bound-fn bound-fn* bound? byte-array cast char-array char-escape-string char-name-string char? class class? clear-agent-errors clojure-version commute compile construct-proxy create-ns create-struct dec' decimal? default-data-readers definline definterface defmacro defstruct deliver denominator destructure dosync ensure enumeration-seq error-h