pieter-van-prooijen’s gists

pieter-van-prooijen / yo.clj

Last active November 14, 2019 20:35 — forked from vijaykiran/yo.clj

	(ns clojure-meetup-2019-11.core
	(:require [clojure.java.io :as io]))

	(defn split-name [x]
	(let [[_ letters id checksum] (re-find #"^(.+)-(\d+)\[([a-z]{5})\]$" x)]
	[letters (Long/parseLong id) checksum]))

	(defn freq-comparator [[a-ltr a-freq] [b-ltr b-freq]]
	(let [freq-result (compare a-freq b-freq)]
	(if (zero? freq-result)

pieter-van-prooijen / forkme.clj

Last active August 14, 2019 19:26 — forked from skuro/forkme.clj

Nonograms dojo

	(ns nonogram.core
	(:require [mikera.image.core :as image]
	[mikera.image.dither :as dither]))

	;; create column and row wise matrices
	(defn create-matrices [image-path]
	(let [img (-> (image/load-image image-path)
	(image/resize 20 20)
	#_(dither/dither (dither/mono-palette-function)))]
	[(for [x (range 20) y (range 20)]

pieter-van-prooijen / README.clj

Last active July 17, 2019 19:15 — forked from skuro/README.md

Clojure meetup #115

	(ns chess.core
	(:require [clojure.string :as string]))

	(def board
	{[:a 1] [:R :w]
	[:b 1] [:N :w]
	[:c 1] [:B :w]
	[:d 1] [:Q :w]
	[:e 1] [:K :w]
	[:f 1] [:B :w]

pieter-van-prooijen / readme.clj

Last active February 13, 2019 20:13 — forked from skuro/readme.org

Meetup #111 solutions

	```
	(ns clojure-dojo-2019-02-13.core)

	(defn board [width height]
	(into {} (for [x (range width)
	y (range height)]
	[[x y] (rand-nth [:blue :red])])))

	(defn neighbours [board width height x y step-x step-y]
	(let [end-x (if (neg? step-x) -1 width)

pieter-van-prooijen / forkme.clj

Last active December 12, 2018 19:39 — forked from skuro/forkme.md

Advent of Clojure solutions


	(ns adventofcode2015.core)

	(defn step [[row column value]]
	(let [new-value (mod (* value 252533) 33554393)
	max-depth (dec (+ row column))
	new-row (if (= column max-depth) (inc max-depth) (dec row))
	new-column (if (= column max-depth) 1 (inc column))]
	[new-row new-column new-value]))

pieter-van-prooijen / index.html

Last active May 25, 2017 08:44

AMS Clojure Meetup 24-05-2017 Clara rule engine presentation, drop this index.html into a reveal.js distribution and open in the browser

	<!doctype html>
	<html>
	<head>
	<meta charset="utf-8">
	<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no">

	<title>Clara Rule Engine (Clojure Meetup 24-05-2017)</title>

	<link rel="stylesheet" href="css/reveal.css">
	<link rel="stylesheet" href="css/theme/white.css">

pieter-van-prooijen / markov.clj

Created March 8, 2017 20:07

	(ns alice-clj.core)

	(def text (slurp "resources/19033.txt"))
	(def words (clojure.string/split text #"[^A-Za-z]+"))

	(def pairs (partition 2 1 (map clojure.string/lower-case words)))

	(defn add-pair [m [w1 w2]]
	(update-in m [w1 w2] (fn [count]
	(if count (inc count) 1))))

pieter-van-prooijen / README.md

Created March 8, 2017 20:02 — forked from Gonzih/README.md

markov-chain-meetup-dojo

pieter-van-prooijen / nonograms-dojo.clj

Last active September 14, 2016 19:42 — forked from skuro/nonograms-dojo.clj

	# fork this gist and provide your solution
	(ns nonogram.core
	(require [mikera.image.core :as image]
	[mikera.image.dither :as dither]))


	(defn create-matrix [image-path]
	(let [img (-> (image/load-image image-path)
	(image/resize 20 20)
	(dither/dither (dither/mono-palette-function)))]

pieter-van-prooijen / berlin-clock.cljs

Last active July 20, 2016 18:59 — forked from skuro/berlin-clock.cljs

Berlin Clock kata as implemented at the Amsterdam Clojurians cljs dojo, meetup #80

	(ns dojo.core
	(:import [goog.date.DateTime])
	(:require [reagent.core :as reagent :refer [atom]]
	[reagent.session :as session]
	[secretary.core :as secretary :include-macros true]
	[accountant.core :as accountant]))

	;; -------------------------
	;; Views

Pieter van Prooijen pieter-van-prooijen