Skip to content

Instantly share code, notes, and snippets.

@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)
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
  9. Nazo_Gen
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
  9. Nazo_Gen
  1. otsune
  2. kanimaster
  3. jt_noSke
  4. habuakihiro
  5. mohno
  6. munyuu
  7. ChimeraJpn
  8. DoukiHousou
  9. Nazo_Gen