theikkila

const partitionBy = (f, collection) => {
  const r = collection.reduce(({result, currentPartition, partitions}, item) => {
    const newResult = f(item)
    if (result != undefined && result != newResult) {
      return {result: newResult, currentPartition: [item], partitions: R.append(currentPartition, partitions)}
    }
    return {result: newResult, currentPartition: R.append(item, currentPartition), partitions}
  }, {result: undefined, currentPartition:[], partitions: []})
  return R.append(r.currentPartition, r.partitions)
}

theikkila

(def defaults {:a ["default-a"]
               :b ["default-b"]
               :c ["default-c"]
               :d ["default-d"]})

(def ex1 [:a 1 2 :b 4 5 :c :d])

theikkila

(defmacro first-do
 "Executes first expression of do-block and returns it's result after the rest of the body"
 [fexpr & body]
  `(let [a# ~fexpr]
     (do ~@body a#)))

; EXAMPLE:

theikkila

class Spuce < Formula
  desc "A C++ library for DSP filters"
  homepage "http://pyspuc.com"
  head "https://github.com/audiofilter/spuce.git"
  url "https://github.com/audiofilter/spuce/archive/0.4.3.tar.gz"
  version "0.4.3"
  sha256 "5688e107b57640ba0485790d64eb16bff855f54f6fa5b2fdab568ee91f6dc687"
  depends_on "cmake" => :build
  depends_on :python

theikkila

(defn auth-middleware [req]
  (let [auth-headers (get-in req [:headers :auth])]
    (assoc req :user
      (if (= auth-headers "secret")
         {:name "Secret User"}
         nil))))

theikkila

function checkletter (s) {
	lcount = 26; // 26 letters
	var i = 0;
	var csum = s.split('').reduce(function(sm, c, idx) {
		var n = c.charCodeAt(0)-65;
		if (idx % 2 == 0) {
			return sm + n;
		} else {
			return sm + n*2;

theikkila

var module = angular.module('CookieModule', []);

module.service('ckeystore', function(){
    this.get = function (sKey, fromJson) {
        if (!sKey) { return null; }
        var value = decodeURIComponent(document.cookie.replace(new RegExp("(?:(?:^|.*;)\\s*" + encodeURIComponent(sKey).replace(/[\-\.\+\*]/g, "\\$&") + "\\s*\\=\\s*([^;]*).*$)|^.*$"), "$1")) || null;
        if (fromJson) {return JSON.parse(value); } else { return value; }
    };
    this.set = function (sKey, sValue, vEnd, sPath, sDomain, bSecure, toJson) {
        if (!sKey || /^(?:expires|max\-age|path|domain|secure)$/i.test(sKey)) { return false; }

theikkila

#cloud-config

write_files:
  - path: /run/cloud-config.yml
    permissions: '0644'
    content: |
      #cloud-config

      ssh_authorized_keys:
        - ssh-rsa AAAAB....

theikkila

<h1 id="protokollakuvaus">Protokollakuvaus</h1>
<script src="http://cdn.rawgit.com/knsv/mermaid/master/dist/mermaid.full.min.js"></script>
<h2 id="yleisesti">Yleisesti</h2>
<p>Kaikki Nodet pitävät listaa muista nodeista</p>
<p>esim klusteri G = {A, B, C, D}
<div class="mermaid">
    graph TD;
    A---B;
    B---C;
    C---A;

theikkila

[
        "Automotive",
        "Budgeting",
        "HVAC",
        "Heaters",
        "Hydraulics",
        "Logistics Management",
        "Management",
        "Negotiation",
        "Project Planning",