Skip to content

Instantly share code, notes, and snippets.

@Beyamor
Beyamor / argument-inferencer-tests
Created December 14, 2012 06:56
Argument inferencer tests.
(ns infer-arg.test.core
(:use [infer-arg.core])
(:use [clojure.test]))
(deftest fn-without-arg-list-not-wrapped
(is (= 2 ((inference-wrapper (fn [x] (inc x))) 1))))
(deftest fn-with-arg-list-is-wrapped
(is (= 2
((inference-wrapper
@Beyamor
Beyamor / argument-inferencer-source
Created December 14, 2012 06:55
Argument inferencer source.
(ns infer-arg.core
(:use [clojure.core.incubator :only [-?>]]))
(defn make-wrapper-fn
[symbolic-arg-list]
(eval
`(fn [f# {:keys ~symbolic-arg-list}]
(f# ~@symbolic-arg-list))))
(defn inference-wrapper
@Beyamor
Beyamor / gist:4141059
Created November 24, 2012 19:15
Java Map
import java.util.*;
public class Main {
public static class Map {
public static interface Fn<IN, OUT> {
public OUT call(final IN in);
}