moznion

fib :: Integer -> Integer
fib 0 = 0
fib 1 = 1
fib x = fib (x - 1) + fib (x - 2)

moznion

import Data.List
import Data.Maybe

collatz :: Int -> [Int]
collatz 1 = [1]
collatz x
	| even x = [x] ++ (collatz $ x `div` 2)
	| otherwise = [x] ++ (collatz $ 3 * x + 1)

longestLengthOfCollatz :: Int

moznion

g :: [a] -> [a]
g xs = tail $ tail $ tail $ tail xs

f :: [Int] -> [Int]
f xs = take 10 $ map (*3) $ filter even xs

sqrtSums :: Int
sqrtSums = (1+) $ length $ takeWhile (<1000) $ scanl1 (+) $ map sqrt [1..]

moznion

g :: [a] -> [a]
g = tail . tail . tail . tail

f :: [Int] -> [Int]
f = take 10 . map (*3) . filter even

sqrtSums :: Int
sqrtSums = (1+) . length . takeWhile (<1000) . scanl1 (+) $ map sqrt [1..]

moznion

f :: Int -> Int
f = (1+) . (2*)

g :: Int -> Int -> Int
g = (+) . (2*)

h :: Int -> [a] -> [a]
h = (fst .) . splitAt

i :: Ix a => (a,a) -> [a]

moznion

#!/usr/bin/perl

use strict;
use warnings;
use 5.012;

use WebService::Simple;

my $target_username  = "plack"; # <= It's test var! Hehe. FIXME
my $target_reponame  = "Plack"; # <= It's test var! Hehe. FIXME

moznion

#!/usr/bin/perl

use strict;
use warnings;
use 5.012;

use WebService::Simple;

my $target_username  = "USER_NAME"; # <= input your self
my $target_reponame  = "REPOSITORY_NAME"; # <= input your self

moznion

div#watch7-discussion{
    display: none !important
}

moznion

#res {
    display: none;
}

moznion

#!/usr/bin/env perl

use strict;
use warnings;

my $rvm_path = "~/.rvm/rubies";

`rvm list` =~ /=.*?(ruby-.*?)\s\[/;
system("$rvm_path/$1/bin/ruby @ARGV");