stianeikeland

(def 🔟 10)
(def 🚲 cycle)
(def ✊ take)
(def 🏁 (🚲 [:🚕 :🚗 :🚚 :🚒 :🚐]))
(✊ 🔟 🏁)

stianeikeland

require "formula"

class Flashrom < Formula
  homepage "http://flashrom.org/"
  url "http://download.flashrom.org/releases/flashrom-0.9.7.tar.bz2"
  sha1 "d08b4073ea3ebf63f03c3e502f4291f50ef348ee"

  head "svn://flashrom.org/flashrom/trunk", :using => :svn

  depends_on 'libusb-compat'

stianeikeland

;; Anything you type in here will be executed
;; immediately with the results shown on the
;; right.

(import [com.pi4j.wiringpi Spi])

(def reg {:no-op (byte 0x0)
                :row-1 (byte 0x1)
                :row-2 (byte 0x2)
                :row-3 (byte 0x3)

stianeikeland

(ns yathzee.core
  (:require [clojure.set :refer :all]))

(defn- sum [list]
  (reduce + list))

(defn score-singles [num roll]
  (sum (filter #(= num %) roll)))

(def score-1s (partial score-singles 1))

stianeikeland

;;; Kompiler og kjoer med:
;;; nasm -f elf64 -F stabs kake.asm && gcc -o kake kake.o && ./kake

global  main
extern  printf

segment .data
        formatert db 'Svaret er: %u!', 0Ah, 0h

segment .text

stianeikeland

(fact (let [c (chan)
            _ (>!! c :hallo)]
        (deref (future (<!! c)) 200 :timeout) => :hallo))

stianeikeland

;;; Concurrent prime sieve using core.async in clojure

(ns primesieve.core
  (:require [clojure.core.async :as async :refer [go-loop chan >! <! <!! close! filter< to-chan]]))

(def bufsize 512)

(defn gen [upper-limit]
  "Returns channel, puts numbers from 2 to upper-limit into channel"
  (to-chan (range 2 upper-limit)))

stianeikeland

#!/bin/bash
sed -i "s/http:\/\/.*ubuntu.com\/ubuntu/http:\/\/old-releases.ubuntu.com\/ubuntu/g" /etc/apt/sources.list

stianeikeland

(require hy.contrib.loop)
(import [random [shuffle]])

(def ranks (+ (range 2 11) [:a :k :q :j]))
(def suits [:h :c :d :s])

;; OH MY IMPERATIVE GAAWD!
(def deck [])
(for [rank ranks
      suit suits]

stianeikeland

(ns variants-playground.core
  (:require [clojure.core.typed :as t :refer [cf defalias ann U Value Str HVec HMap]]
            [clojure.core.match :refer [match]]))

(defmacro Variant [& lst]
  `(U ~@(for [[tag & items] lst]
          `(HVec [(Value ~tag)
                  (HMap :mandatory ~@items)]))))

(println (macroexpand '(Variant [:foo {:bar Str}])))