deltam’s gists

deltam / scheme_baton.clj

Created January 31, 2010 08:25 — forked from manjilab/scheme_baton.clj

	;; 第1回 Scheme コードバトン
	;;
	;; ■ これは何か？
	;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
	;; 次回 Shibuya.lisp で成果を発表します。
	;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
	;;
	;; ■ 2 つのルール
	;;
	;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

deltam / scheme_baton.clj

Created January 31, 2010 15:06 — forked from manjilab/scheme_baton.clj

	;; 第1回 Scheme コードバトン
	;;
	;; ■ これは何か？
	;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
	;; 次回 Shibuya.lisp で成果を発表します。
	;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
	;;
	;; ■ 2 つのルール
	;;
	;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。

deltam / kaprekar_calc.lisp

Created February 4, 2010 16:43

deltam / all4.dot

Last active March 29, 2020 05:02

deltam / kaprekar.cpp

Last active November 7, 2022 02:43

	/* find loops in kaprekar's operation sequence
	* written by [email protected]
	* USAGE: kaprekar <digit>
	*/

	#include <stdlib.h>
	#include <math.h>
	#include <iostream>
	#include <algorithm>
	#include <map>

deltam / fp-map-repl.clj

Created August 17, 2010 05:10

	; Googleグループ clojure-ja
	; 質問: 関数型プログラミングでいうZip関数をClojureではどう書く？
	; <http://groups.google.com/group/clojure-ja/browse_thread/thread/98cc4e3b7bcb4a28#>
	; それぞれREPL実行結果まとめ

	(def a [1 2 3 4])
	(def b [5 6 7 8])


	; はやみずさんのアイデア

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)

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

MISUMI Masaru deltam