Vesa Marttila ponzao

ponzao / tictactoe.clj

Last active December 22, 2015 14:19

Declarative (= bloated) Tic-Tac-Toe solver in Clojure and core.logic.

ponzao / coder.clj

Last active December 20, 2015 07:49

Martin Odersky's Phone Coder example translated into Clojure

ponzao / cycle.fs

Created February 10, 2013 19:48

	let rec cycle xs =
	Seq.concat (Seq.initInfinite (fun _ -> xs))

ponzao / game_of_life.clj

Last active December 12, 2015 07:49

	(ns core
	(:use quil.core))

	(defn tick
	[state]
	(let [neighbors (fn [x y]
	(for [xinc (range -1 (inc 1))
	yinc (range -1 (inc 1)) :when (not (= 0 xinc yinc))]
	[(+ x xinc) (+ y yinc)]))
	map-matrix (fn [f matrix]

ponzao / fizzbuzz.clj

Last active December 12, 2015 06:29

	;; without numbers
	(def fizzbuzz
	(let [fizz (cycle [nil nil "fizz"])
	buzz (cycle [nil nil nil nil "buzz"])]
	(remove empty? (map str fizz buzz))))

	;; with numbers
	(defn fizzbuzz
	[n]
	(let [xs (range 1 (inc n))

ponzao / graph_find.clj

Created August 20, 2012 09:41

ponzao / spell_checker.clj

Created April 17, 2012 10:00

	(def dictionary
	(with-open [rdr (reader "/usr/share/dict/words")]
	(conj (set (line-seq rdr)) "clojure")))

	(defn correctly-spelled?
	[sentence]
	(->> (.toLowerCase sentence)
	(re-seq #"\w+")
	(every? dictionary)))

ponzao / take_to_and_partition_after.clj

Created January 20, 2012 12:25

	;; Gathers values up to (and including) the one for
	;; which the predicate fails.
	(defn take-to
	[pred coll]
	(when-let [s (seq coll)]
	(let [[x & xs] s]
	(if-not (pred x)
	(list x)
	(lazy-cat (cons x (take-to pred xs)))))))

ponzao / mixin.scala

Created May 10, 2011 08:31

	class C { def b = "b" }
	trait T extends C { override def b = "trait b" }
	val c = new C with T
	c.b // => java.lang.String = trait b

ponzao / transactional.clj

Created April 20, 2011 09:15

	(defn- in-transaction [f]
	(try
	(do (println "starting...")
	(let [rv (f)]
	(println "commiting...")
	rv))
	(catch Exception e
	(println "rollbacking..."))))

	(defmacro transactional [expr]