0xYUANTI

-module(bench).
-compile(export_all).

%% Luke Gorrie's favourite profiling macro.
-define(TIME(Tag, Expr),
        (fun() ->
             %% NOTE: timer:tc/4 does an annoying 'catch' so we
             %% need to wrap the result in 'ok' to be able to
             %% detect an unhandled exception.
             {__TIME, __RESULT} =

0xYUANTI

#!/usr/bin/mawk -f

# long lines
length() > 79

# trailing whitespace
/[ ]+$/

# tabs
/[\t]/

0xYUANTI

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Clojure port of Scheme's SRFI-26 ``Curry Upon This'' macro package
;;; (strictly inferior to Clojure's built-in lambda-syntax).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;_* Declarations =====================================================
(ns cut
  (:use clojure.test))

(declare gen slot? rest-slot? eval?)

0xYUANTI

-module(reftrick).
-compile(export_all).

%% Luke Gorrie's favourite profiling macro.
-define(TIME(Tag, Expr),
        (fun() ->
           %% NOTE: timer:tc/4 does an annoying 'catch' so we
           %% need to wrap the result in 'ok' to be able to
           %% detect an unhandled exception.
           {__TIME, __RESULT} =

0xYUANTI

Erlang R15B02 (erts-5.9.2) [source] [64-bit] [smp:4:4] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.9.2  (abort with ^G)
1> c(reftrick).
{ok,reftrick}
2> spawn(fun() -> reftrick:plain() end).
<0.38.0>
time(reftrick):              3.410ms recv1
time(reftrick):            704.826ms recv2
3> spawn(fun() -> reftrick:plain() end).

0xYUANTI

{function, recv, 1, 9}.
  {label,8}.
    {line,[{location,"reftrick.erl",33}]}.
    {func_info,{atom,reftrick},{atom,recv},1}.
  {label,9}.
    {test,is_eq_exact,{f,10},[{x,0},{integer,0}]}.
    {move,{atom,ok},{x,0}}.
    return.
  {label,10}.
    {allocate_zero,1,1}.

0xYUANTI

[info] Starting scala interpreter...
[info] 
Welcome to Scala version 2.10.4 (OpenJDK 64-Bit Server VM, Java 1.6.0_32).
Type in expressions to have them evaluated.
Type :help for more information.

scala> def f = 1
def f = 1
f: Int

0xYUANTI

### Keybase proof

I hereby claim:

  * I am cannedprimates on github.
  * I am cannedprimates (https://keybase.io/cannedprimates) on keybase.
  * I have a public key whose fingerprint is 734D ECBA C500 533A 95AA  32B7 333D C302 DD8D 2180

To claim this, I am signing this object:

0xYUANTI

// build.sbt
scalaVersion := "2.11.6"

libraryDependencies ++= Seq(
  "org.scalaz" %% "scalaz-core"       % "7.1.1",
  "org.scalaz" %% "scalaz-effect"     % "7.1.1",
  "org.scalaz" %% "scalaz-concurrent" % "7.1.1",

  "org.tpolecat" %% "doobie-core"               % "0.2.1",
  "org.tpolecat" %% "doobie-contrib-postgresql" % "0.2.1",

0xYUANTI

/* example from cohttp readme, works with rebuild -pkg cohttp.lwt wtf.native */

open Lwt;
open Cohttp;
open Cohttp_lwt_unix;

let coroutine =
  Client.get (Uri.of_string "http://www.reddit.com/") >>= fun (resp, body) => {
    let code = resp |> Response.status |> Code.code_of_status;
    Printf.printf "Response code: %d\n" code;