TwP

# require 'monkey-proof'
#
# class Foo
#   def foo() puts 'foo'; end
# end
# monkey_proof Foo
#
# class Foo
#   include Enumerable
# end

trung

%% To demonstrate tail recursion in Erlang

-module (tailrecursion).
-export ([fact/1, qsort/1, loop/0]).

%% Factorial
fact(N) -> fact(N, 1).
fact(0, A) -> 1*A;
fact(N, A) -> fact(N-1, N*A).

trung

% Quick sort

-module (recursion).
-export ([qsort/1]).

qsort([]) -> [];
qsort([Pivot|T]) ->
       qsort([X || X <- T, X < Pivot])
       ++ [Pivot] ++
       qsort([X || X <- T, X >= Pivot]).

yuya-takeyama

module BinaryTree
  class Node
    attr_reader :word, :count, :left, :right

    include Enumerable

    def initialize(word)
      @word, @count = word, 1
    end

dhh

# autoload concerns
module YourApp
  class Application < Rails::Application
    config.autoload_paths += %W(
      #{config.root}/app/controllers/concerns
      #{config.root}/app/models/concerns
    )
  end
end

perusio

### Testing if the client is a mobile or a desktop.
### The selection is based on the usual UA strings for desktop browsers.

## Testing a user agent using a method that reverts the logic of the
## UA detection. Inspired by notnotmobile.appspot.com.
map $http_user_agent $is_desktop {
    default 0;
    ~*linux.*android|windows\s+(?:ce|phone) 0; # exceptions to the rule
    ~*spider|crawl|slurp|bot 1; # bots
    ~*windows|linux|os\s+x\s*[\d\._]+|solaris|bsd 1; # OSes

tsabat

Prereq:

apt-get install zsh
apt-get install git-core

Getting zsh to work in ubuntu is weird, since sh does not understand the source command. So, you do this to install zsh

wget https://github.com/robbyrussell/oh-my-zsh/raw/master/tools/install.sh -O - | zsh

Jaskirat

(defn insert [l k]
"Function to do insert in sorted order"
      (concat (filter #(< % k) l)  [k] (filter #(> % k) l)))

(defn isort [l]
"Insertion sort"
      (loop [r []
             l  l]
         (if (empty? l)
             r

takehiko

;; 領域を選択して M-x url-quote-region-utf8 で，" => URLエンコード文字列" を
;; 挿入します．UTF-8 でエンコードします．
;; また直後に C-x C-x や C-w などとすると，URLエンコード文字列に対する
;; 領域処理となります．

;; Thanks: https://gist.github.com/436913

;; もし (load "htmlutils") をしていなければ
;; 以下のコメントを外してください．
;(defun url-escape-point (c)

10nin

defmodule Crypto do
    def md5(s) do
        list_to_binary(Enum.map(bitstring_to_list(:crypto.md5(s)), fn(x) -> integer_to_binary(x, 16) end))
    end
end