Skip to content

Instantly share code, notes, and snippets.

View parroty's full-sized avatar
🏠
Working from home

Kenta Nakase parroty

🏠
Working from home
View GitHub Profile
@parroty
parroty / fib.hs
Created December 29, 2014 14:54
Fibonacci on Haskell
import System.Environment (getArgs)
main :: IO ()
main = do
args <- getArgs
let n = read $ head args :: Int
putStrLn . show $ fib n
fib :: Int -> Integer
fib 0 = 0
@parroty
parroty / gist:98a68f2e8a735434bd60
Created February 24, 2015 23:23
Macro wrapper for fetching default value of map
defmodule Fetcher do
def db_value_for(key) do
IO.puts "processing..."
"db value for #{key}"
end
defmacro get(map, key, default \\ nil) do
quote do
case Map.get(unquote(map), unquote(key)) do
nil -> unquote(default)
@parroty
parroty / dummy
Last active October 11, 2015 06:52
dummy
defmodule XmlParser do
require Record
Record.defrecord :xmlElement, Record.extract(:xmlElement, from_lib: "xmerl/include/xmerl.hrl")
Record.defrecord :xmlText, Record.extract(:xmlText, from_lib: "xmerl/include/xmerl.hrl")
@xml """
<result>
<event>
<title>My event</title>
@parroty
parroty / .tool-versions
Created December 30, 2015 08:48
Elixir build example at CircleCI
erlang 18.0
elixir 1.1.1