maruks

-module(join).

-import(lists,[foldr/3,foldl/3,filter/2,split/2,flatmap/2,map/2,seq/2]).

-export([join/2,concat/1,member/2,qsort/1,msort/1,isort/1,perms/1]).

join_([X|Xs],Ys) ->
    join_(Xs, [X | Ys]);
join_([], Ys) ->
    Ys.

maruks

blur : Dict(Int,Int) Int -> ( Int, Int ) -> Int
blur cells ( x, y ) =
    let
        xs =
            range (x - 1) (x + 1)

        ys =
            range (y - 1) (y + 1)

        points =

maruks

defmodule Plumber do
  def input do
    "/Users/maris/Projects/Advent_of_code_2017/plumber/test/input" |>
    File.stream!() |>
    Enum.map(&(Regex.split(~r/\D+/, String.trim(&1)))) |>
    Enum.reduce(%{}, fn([first | rest],acc) -> Map.put(acc,first,rest) end )
  end

  def count([], acc, input) do
    case Map.keys(input) do

maruks

defmodule Plumber do
  def input(file) do
    file
    |> File.stream!()
    |> Enum.map(&(Regex.split(~r/\D+/, String.trim(&1))))
    |> Enum.reduce(%{}, fn([first | rest],acc) -> Map.put(acc,first,rest) end )
  end

  def count([], acc, input) do
    case Map.keys(input) do

maruks

(ns prison.core
  (:require [gniazdo.core :as ws]
            [clojure.data.json :as json]))

(defn parse [str]
  (json/read-str str :key-fn keyword))

(def msg-atom (atom nil))

(defn handle [msg]

maruks

(ns prison.core
  (:require [gniazdo.core :as ws]
            [clojure.data.json :as json]
            [clojure.string :as str]))

(defn parse [str]
  (json/read-str str :key-fn keyword))

(def score (atom {}))
(def last-round (atom nil))

maruks

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#ifdef _MSC_VER
#include <intrin.h> /* for rdtscp and clflush */
#pragma optimize("gt",on)
#else
#include <x86intrin.h> /* for rdtscp and clflush */
#endif

maruks

(defn queue []
  (java.util.PriorityQueue.))

(defn peek [pqueue]
  (.peek pqueue))

(defn poll [pqueue]
  (.poll pqueue)
  pqueue)

maruks

(defpackage :matrices
  (:use :cl :iterate)
  (:export multiply))

(in-package :matrices)

(defun multiply (m1 m2)
  (flet ((multiply-row (row column size)
	   (iter
	     (for i :below size)

maruks

(defpackage :transposition
  (:use :cl))

(in-package :transposition)

(defparameter *text* "WEAREDISCOVEREDFLEEATONCE------")

(defun range (max &key (min 0) (step 1))
   (loop for n from min below max by step
      collect n))