MISUMI Masaru deltam

deltam / ExcelSuggest.xls

Created November 27, 2011 03:38

ExcelSuggestのソース　http://deltam.blogspot.com/2005/03/avexexcel-suggest.html

View raw

deltam / FizzBuzz.clj

Created November 14, 2011 13:03

FizzBuzz on Clojure

deltam / index.html

Created May 8, 2011 05:17

映画『ウォッチメン』のロールシャッハ仮面を作れないか実験中

	<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
	<title>Rorschach Mask</title>
	<script type="text/javascript" src="rorschach.js"></script>
	</head>
	<body>

	<div align="center"><b>Rorschach Mask</b></div>

deltam / watch-file-status.clj

Created January 31, 2011 13:26


	;; fill-queue による非同期フックの実験
	;; 指定したファイルの最終更新日時が変わったらキューにそのファイル名をプッシュする

	(ns watch-file-status
	(:use [clojure.contrib.seq :only (fill-queue)])
	(:import [java.io File]
	[java.util Date]
	[java.text SimpleDateFormat]))

deltam / gist:798153

Created January 27, 2011 06:27

	;; c.c.combinatorics/subsetsを使って、べき集合（Powerset）を作る

	(use '[clojure.contrib.combinatorics :only (subsets)])

	(subsets '())
	;(())

	(subsets '(1))
	;(() (1))

deltam / gist:780422

Created January 14, 2011 22:36

	(ns intro-seq.core
	(:use [clojure.contrib seq]))

	;; Clojure初心者向けに覚えておくと便利なシーケンス操作関数の使用例を列挙する

	;; 1.2でclojure.coreに移動し、廃止予定（DEPRECATED.)になってるのもある

	;; 全部で18個（DEPRECATEDは8個）

	;; 使用頻度高そう系（4個）

deltam / steinhaus.clj

Created January 8, 2011 09:15

	;; 順列生成アルゴリズム
	;; 『群論の味わい』p.69より

	(ns steinhaus
	(:use [clojure.contrib.seq :only (rec-cat)]))

	(defn- insert-at [item n coll]
	(concat (take n coll) (vector item) (drop n coll)))

	(defn stein-rec [max]

deltam / int-calc.clj

Created January 8, 2011 02:55

	; int-calc.clj
	(ns int-calc
	(:use [clojure.contrib.command-line :only (with-command-line)]))

	(with-command-line command-line-args
	"clj int-calc.clj [-p\|-mi\|-ml] [-modulo n] nums.."
	[[plus? p? "plus" true]
	[minus? mi? "minus"]
	[multiply? ml? "multiply"]
	[modulo "mod n"]

deltam / 10min_bayes.html

Created October 2, 2010 16:06

	<html>
	<title>10分で書くベイジアンフィルタ</title>
	<script type="text/javascript">
	<!--//
	function run() {
	var hash = splitWord(form.classA.value);
	var str = "";
	var sum = 0;
	for (key in hash) {
	str += key + ": " + hash[key] + ";¥n";

deltam / mathew12.clj

Created August 19, 2010 14:32

	(ns mathew12
	(:use [clojure.contrib.seq-utils :only (includes? indexed)]))

	(def m12 [0 1 2 3 4 5 6 7 8 9 10 11])

	; 実験
	(comment
	(map (fn [m i] (vector m i)) m12 (vec (range 0 11)))
	(indexed m12)