u6f6o

u6f6o / macOSXSetup.sh

Last active January 8, 2018 10:28

	#!/usr/bin/env bash

	echo "Install all AppStore Apps manuallyfirst!"
	read -p "Press any key to continue... " -n1 -s
	echo '\n'

	echo "Install xcode-select --install if not done yet!"
	read -p "Press any key to continue... " -n1 -s
	echo '\n'

u6f6o / AnagramBenchmark.java

Created July 20, 2017 08:06

	import org.openjdk.jmh.annotations.*;
	import org.openjdk.jmh.infra.Blackhole;

	import java.io.BufferedReader;
	import java.io.InputStream;
	import java.io.InputStreamReader;
	import java.util.concurrent.TimeUnit;

	@BenchmarkMode(Mode.AverageTime)
	@OutputTimeUnit(TimeUnit.NANOSECONDS)

u6f6o / Anagram.java

Last active July 18, 2017 12:59

	public class Anagram {

	private static final long [] FIRST_26_PRIMES = new long [] {
	2,
	3,
	5,
	7,
	11,
	13,
	17,

u6f6o / blog-mines-02-neighbours.clj

Created March 20, 2016 22:25

u6f6o / blog-mines-02-play.clj

Created March 16, 2016 20:39

u6f6o / blog-mines-02-helper.clj

Created March 16, 2016 20:31

	(defn init
	[board start-idx]
	(if-not (started? board)
	(init-game board start-idx)
	board))

	(defn explore
	[board idx]
	(if-not (or (pos? (nth (:flags board) idx))
	(pos? (nth (:explored board) idx))

u6f6o / blog-mines-02-wire.clj

Last active March 16, 2016 20:31

u6f6o / blog-mines-02-autoclear.clj

Created March 8, 2016 15:07

	(defn- explore-cell
	([board idx]
	(explore-cell board #{} #{idx}))
	([board explored remaining]
	(if (empty? remaining)
	board
	(let [curr (first remaining)
	explored (conj explored curr)
	remaining (disj remaining curr)
	board (set-explored board curr)

u6f6o / blog-mines-02-neighbours-nice.clj

Created March 8, 2016 14:50

	(defn- nice-neighbours
	[board idx]
	(let [mines (:mines board)
	explored (:explored board)
	neighbours (neighbours board idx)
	is-set? (fn [[k v]] (pos? v))]
	(when
	(not-any? is-set? (select-keys mines neighbours))
	(->> (select-keys explored neighbours)
	(remove is-set?)

u6f6o / blog-mines-02-warnings.clj

Created March 8, 2016 13:19

	(defn- place-warnings
	[board]
	(->> (keep-indexed #(if (pos? %2) %1) (:mines board))
	(mapcat (partial neighbours board))
	(frequencies)
	(reduce-kv set-warning board)))