jcoglan

require 'eventmachine'

module Client
  def connection_completed
    send_data "*1\r\n$4\r\nPING\r\n"
  end

  def receive_data(data)
    p data
  end

michiakig

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ant sim ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
;   which can be found in the file CPL.TXT at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

;dimensions of square world

fronx

(def first-n-fib
  #(loop [l [] a 0 b 1 c 0]
    (if (= c %)
      l
      (recur
        (conj l a)
        b
        (+ a b)
        (+ 1 c)))))

jehiah

#!/bin/env python

"""
This is a test script to simulate a memcached instance on a server
that has gone south and is accepting connections, but generally not
responding. 

The goal of this script is to help test/develop correct client 
side settings for timeouts/failure scenarios

fronx

# https://gist.github.com/1185131

class Array
  def next; self[1..-1] end

  # returns a function that is the combination of a sequence of function calls
  # on some external arguments. the functions combined are the elements of self.
  def compose
    lambda do |*args|
      inject(*args) do |mem, fn|

mislav

run ->(e){ p=Hash[*e['QUERY_STRING'].split(/[&=]/)]; [200, {'Content-type'=>'text/html'}, ["Hello #{p['name']}!"]] }

moink

function A=transclose(A)
%returns the transitive closure matrix of the input matrix
%input: A(i,j) is 1 if the binary relation if (element i) R (element j) using the %notation in the introduction
%of http://en.wikipedia.org/wiki/Transitive_closure 
%
%Usage example: Implements the first example problem on https://www.4clojure.com/problem/84
%
%divideskey=[2 3 4 8 9 27];
%%I don't actually use that variable, but it keeps track of what my matrix means
%

fronx

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ant sim ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
;   which can be found in the file CPL.TXT at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

;dimensions of square world

rogerallen

#!/usr/bin/env python
# -*- coding: utf-8 -*-

BARS = u'▁▂▃▅▆▇'

import sys

data = sys.argv[1:] or sys.stdin.read().split()
data = (x.strip() for x in data)
data = [float(x) for x in data if x]

fronx

class Array
  def mapfn(&proc)
    map do |item|
      lambda do |*args|
        proc.call(*([item] + args))
      end
    end
  end
end