Skip to content

Instantly share code, notes, and snippets.

View kickstamp's full-sized avatar

kay kickstamp

1 follower · 2 following
View GitHub Profile
@kickstamp
kickstamp / NumToAlf.hs
Created January 14, 2015 22:52
NumToAlf
module Main where
import Data.List((!!))
f :: String -> Int -> String
f cs = reverse . map (cs !!) . h
where n = length cs
h 0 = []
h acc = let m = (acc - 1) `mod` 26
in m: h ((acc - m) `div` n)
@kickstamp
kickstamp / gist:669534716db076af34d7
Created June 24, 2014 12:55 — forked from anonymous/gist:c9d3d78143415f5180ee
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
    9. Nazo_Gen
@kickstamp
kickstamp / gist:91c5c74abeceded90921
Created June 24, 2014 12:55 — forked from anonymous/gist:c9d3d78143415f5180ee
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
    9. Nazo_Gen
@kickstamp
kickstamp / gist:cb754927f93a5589d97f
Created June 24, 2014 12:55 — forked from anonymous/gist:c9d3d78143415f5180ee
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
    9. Nazo_Gen