Skip to content

Instantly share code, notes, and snippets.

URxvt.keysym.C-7: command:\033]710;-*-uushi-medium-r-normal-*-*-*-*-*-*-*-*-*\007\033]711;-*-uushi-medium-r-normal-*-*-*-*-*-*-*-*-*\007
URxvt.keysym.C-8: command:\033]710;-*-gohufontmod11-medium-r-normal-*-*-*-*-*-*-*-*-*\007\033]711;-*-gohufontmod-medium-r-normal-*-*-*-*-*-*-*-*-*\007
URxvt.keysym.C-9: command:\033]710;-*-limey-*-*-*-*-*-*-*-*-*-*-*-*\007\033]711;-*-limey-*-*-*-*-*-*-*-*-*-*-*-*\007
URxvt.keysym.C-0: command:\033]710;-*-lemon-*-*-*-*-*-*-*-*-*-*-*-*\007\033]711;-*-lemon-*-*-*-*-*-*-*-*-*-*-*-*\007
URxvt.keysym.C-minus: command:\033]710;-*-tewi-medium-r-normal-*-*-*-*-*-*-*-*-*\007\033]711;-*-tewi-medium-r-normal-*-*-*-*-*-*-*-*-*\007
URxvt.keysym.C-equal: command:\033]710;xft:inconsolata:size=8\007\033]711;xft:inconsolata:size=8\007
case $TERM in
*xterm*|*rxvt*|(dt|k|E|a)term)
preexec () {
print -Pn "\e]2;$1\a" # edited; %n@%m omitted, as I know who and where I am
}
;;
esac
@windelicato
windelicato / 15.hs
Created April 5, 2013 02:48
Project Euler #15
factorial :: Integer -> Integer
factorial n = foldr (*) 1 [1..n]
choose :: Integer -> Integer -> Integer
choose n k = (factorial n) `div` ((factorial k) * (factorial (n - k)))
main :: IO ()
main = print $ choose 40 20