sunaku

# A functional FizzBuzz (without any integer modulus or division) in Elixir
# https://pragprog.com/magazines/2012-08/thinking-functionally-with-haskell
nums = Stream.iterate(1, &(&1 + 1))
fizz = Stream.cycle ["", "", "Fizz"]
buzz = Stream.cycle ["", "", "", "", "Buzz"]
fizzbuzz = Stream.zip(fizz, buzz) |> Stream.zip(nums) |> Stream.map(fn
  {{"",       ""      },  number} -> number
  {{fizzword, buzzword}, _number} -> fizzword <> buzzword
end)
fizzbuzz |> Stream.take(100) |> Enum.each(&IO.puts/1)

behe

defmodule ATGCCount do
  def count(sequence), do: cnt(String.to_char_list(sequence),0,0)
  def cnt([65|t],at,gc), do: cnt(t,at+1,gc)
  def cnt([84|t],at,gc), do: cnt(t,at+1,gc)
  def cnt([71|t],at,gc), do: cnt(t,at,gc+1)
  def cnt([67|t],at,gc), do: cnt(t,at,gc+1)
  def cnt([62|_],at,gc), do: {at,gc}
  def cnt([],at,gc), do: {at,gc}
  # def cnt(_,0,0), do: {0,0}
  def cnt([_|t], at, gc), do: cnt(t,at,gc)

maxrp

# sysmouse will work with the trackpoint and trackpad, so enable
moused_enable="YES"

# Power saving features to keep it from getting ridiculously hot
powerd_enable="YES"

# you'll need to `pkg install drm-510-kmod`
kld_list="i915kms"

Frost

1.9.2-p320 :001 > roses = "red" and "blue"
 => "blue" 
1.9.2-p320 :002 > violets = "red" && "blue"
 => "blue" 
1.9.2-p320 :003 > roses
 => "red" 
1.9.2-p320 :004 > violets
 => "blue" 

DevL

namespace :generate do
  desc 'Generate a timestamped, empty Sequel migration.'
  task :migration, :name do |_, args|
    if args[:name].nil?
      puts 'You must specify a migration name (e.g. rake generate:migration[create_events])!'
      exit false
    end

    content = "Sequel.migration do\n  up do\n    \n  end\n\n  down do\n    \n  end\nend\n"
    timestamp = Time.now.to_i

mads-hartmann

(defun toggle-maximize-buffer () "Maximize buffer"
  (interactive)
  (if (= 1 (length (window-list)))
    (jump-to-register '_)
    (progn
      (set-register '_ (list (current-window-configuration)))
      (delete-other-windows))))

;; Bind it to a key.

andkerosine

$stack, $draws = [], {}

def method_missing *args
  return if args[0][/^to_/]
  $stack << args.map { |a| a or $stack.pop }
  $draws[$stack.pop(2)[0][0]] = args[1] if args[0] == :<
end

class Array
  def +@

Koronen

#!/bin/sh

set -e

sudo apt-get install zbar-tools xdotool

peterhellberg

source :rubygems

gem "sinatra", "~> 1.3.2"

group :test do
  gem "minitest", "~> 2.10"
  gem "rack-test", "~> 0.6.1"
  gem "capybara", "~> 1.1"
  gem "capybara-webkit", "~> 0.11"
  gem "capybara_minitest_spec", "~> 0.2"

coreyhaines

--colour
-I app