Skip to content

Instantly share code, notes, and snippets.

require 'find'
class RailsImageCounter
def self.read_images(dir = 'public/images', images = [])
Find.find(dir) { |f| images << [File.basename(f), 0, f] if File.file?(f) }
images
end
def self.count(images, dir = 'public/stylesheets')
var playedCard:Sprite = Card.createCard(cardVO.cardID);
this.container.rawChildren(playedCard:Sprite);
// add tweener
shuffle(Cards) when is_list(Cards) ->
Size = length(Cards),
lists:foldr(fun(I, Arr) ->
swap(Arr, I, next_int(1, I + 1))
end, Cards, lists:seq(1, Size)).
swap(List, I, J) ->
Ielement = lists:nth(I, List),
Jelement = lists:nth(J, List),
lists:map(fun(Index) ->
shuffle(Cards) when is_list(Cards) ->
Size = length(Cards),
lists:foldr(fun(I, Arr) ->
swap(Arr, I, next_int(1, I + 1))
end, Cards, lists:seq(1, Size)).
swap(List, I, J) ->
Ielement = lists:nth(I, List),
Jelement = lists:nth(J, List),
lists:map(fun(Index) ->
@mk
mk / Git-Revision.md
Created December 20, 2011 12:17
HOWTO: Git generate and read revision for XCode/ObjC

git revision for Xcode

  1. Install custom build phase In Xcode go to the project settings: Add build phase => Add run script and paste

     `which git` show  --abbrev-commit --pretty=oneline | head -1 | cut -d " " -f1 > revision
    

    This should go before Copy resource bundle

  2. Add revision to Copy resource bundles

@mk
mk / mischer.ex
Created December 15, 2015 16:51
Der Sauspiel-Mischer
defmodule Mischer do
def deck do
suits = ["s","h","g","e"]
ranks = ["7","8","9","X","U","O","K","A"]
for rank <- ranks, suit <- suits, do: rank <> suit
end
def shuffle(cards \\ deck) do
card_count = Enum.count(cards)
Enum.reduce 0..(card_count - 1), cards, fn(i, shuffled_cards) ->
@mk
mk / compare.sh
Last active March 6, 2018 09:28
tools.deps problem with jnr-unixsocket
#!/bin/bash
set -eu pipefail
echo "Classpath tree built with lein:"
lein deps :tree
echo "\nClasspath tree built with tools.deps (notice com.github.jnr/jffi :classifier \"native\" missing):"
clj -Stree
echo "\nrunning socket_sample.clj with lein"
@mk
mk / dependency.clj
Created July 5, 2018 18:39
Figwheel selective build
(ns com.nextjournal.build-tools.figwheel.dependency
(:require [clojure.tools.namespace.track :as ctn.track]
[clojure.tools.namespace.dir :as ctn.dir]
[clojure.tools.namespace.file :as ctn.file]
[clojure.tools.namespace.dependency :as ctn.dep]
[clojure.tools.namespace.parse :as ctn.parse]
[clojure.tools.namespace.find :as ctn.find]
[clojure.java.io :as io]
[clojure.tools.reader :as reader])
(:import java.io.PushbackReader))
@mk
mk / error.log
Last active January 14, 2019 15:19
OpenBLAS build errors
/var/folders/n6/j_fp4hxn1lb039365v69hbmr0000gn/T//ccad8ZY0.s:255:9: error: register %xmm16 is only available with AVX512
vxorps %xmm16, %xmm16, %xmm16
^~~~~~
/var/folders/n6/j_fp4hxn1lb039365v69hbmr0000gn/T//ccUomD5h.s:338:19: error: register %xmm31 is only available with AVX512
vmovss 32(%rsp), %x/var/folders/n6/j_fp4hxn1lb039365v69hbmr0000gn/T//ccad8ZY0.sm:m2563:110
: error: register %xmm16 is only available with AVX512
v c o m i s s % x m^m~1~6~,~ ~%
xmm0
^~~~~~
/var/folders/n6/j_fp4hxn1lb039365v69hbmr0000gn/T//ccUomD5h.s:339:16: error: register %xmm31 is only available with AVX512
@mk
mk / mk-local.el
Last active December 23, 2022 14:50
My Emacs Config
;; my customizations on Jack Rusher's excellect emacs config
;; see https://github.com/jackrusher/dotemacs
;; This lives in ~/.emacs/lisp/
;; set initial window size to left half of screen
(custom-set-variables
'(default-frame-alist
(quote
((width . 158)