achim

#! /usr/bin/env python

from __future__ import print_function

import webbrowser
import cPickle as pickle
import tempfile
import argparse

achim

package util;

import com.google.common.base.Function;
import com.google.common.base.Optional;

import javax.annotation.Nullable;
import java.util.concurrent.*;

public class Memoize {

achim

You need a passphrase to unlock the secret key for user: "keybase.io/achim achim@keybase.io" 4096-bit RSA key, ID F4BE2119D2CF5228, created 2014-09-18

Please publicly post the following Gist, and name it keybase.md:

Keybase proof

I hereby claim:

achim

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>ANSIBlackColor</key>
	<data>
	YnBsaXN0MDDUAQIDBAUGFRZYJHZlcnNpb25YJG9iamVjdHNZJGFyY2hpdmVyVCR0b3AS
	AAGGoKMHCA9VJG51bGzTCQoLDA0OVU5TUkdCXE5TQ29sb3JTcGFjZVYkY2xhc3NGMCAw
	IDAAEAGAAtIQERITWiRjbGFzc25hbWVYJGNsYXNzZXNXTlNDb2xvcqISFFhOU09iamVj
	dF8QD05TS2V5ZWRBcmNoaXZlctEXGFRyb290gAEIERojLTI3O0FITltiaWttcn2GjpGa

achim

#!/usr/bin/env python3
#requires pyobjc

import tornado.ioloop
import tornado.web

from cgi import escape
from xml.sax.saxutils import quoteattr

from AppKit import *

achim

iterator foo(): int {.closure.} = 
  yield 0

for x in foo(): echo(x)

# output:
#
# ~/Dev $ ~/Dev/Nimrod/bin/nimrod c test
# config/nimrod.cfg(36, 2) Hint: added path: '/Users/achim/.babel/pkgs/babel-0.1.0' [Path]
# config/nimrod.cfg(36, 2) Hint: added path: '/Users/achim/.babel/pkgs/' [Path]

achim

(defn arities 
  "*HACK*
  Returns a seq of arities of f. The seq will be infinite if f uses rest-params,
  starting at the minimum number of args."
  [f]
  (let [invokes (filter #(= "invoke" (.getName %)) (.getDeclaredMethods (class f)))
        arities (sort (map #(count (.getParameterTypes %)) invokes))]
    (if (instance? clojure.lang.RestFn f)
      (concat arities (iterate inc (inc (last arities))))
      arities)))

achim

From 11d0bc951403f823df65c9d00fd4766873c65311 Mon Sep 17 00:00:00 2001
From: Achim Passen <achim.passen@gmail.com>
Date: Wed, 1 Jul 2009 03:45:44 +0200
Subject: [PATCH] Added [x &rest xs] binding form for lazier destructuring, added nthrest to core

---
 src/clj/clojure/core.clj |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj

achim

(defn step-width
  "The step-with (in fractions of 2*pi) from frequency and sample-rate."
  [frequency sample-rate]
  (/ frequency sample-rate))

(defn duration
  "The number of samples that fit in secs seconds, given sample-rate"
  [secs sample-rate]
  (* secs sample-rate))

achim

; see http://blogs.msdn.com/ericlippert/archive/2008/02/12/immutability-in-c-part-eleven-a-working-double-ended-queue.aspx

(defn- inner-pop [i end]
  (condp = end 
    :left  (subvec i 1)
    :right (pop i)))

(defn- inner-peek [i end]   
  (condp = end
    :left  (first i)