kb 04.11.2012 20:39 Azoth

Вы отписались от #thffss

#thfszs
re 5 comments !recommend ~bookmark Ssubscribe
1. 238328 04.11.2012 20:40

low effort

#thfszs/1
rereply
2. kb → 238328 /1 04.11.2012 20:40 Azoth

http://2ch.hk/pr/res/207219.html genNumbers :: Integer → String
genNumbers n = (show n) ++ genNumbers (n + 1)

solve num = (genNumbers 1) !! (num — 1)

main = do
input ← getLine
let num = read input
— putStrLn (take 15 (genNumbers 1))
print $ solve num

#thfszs/2
rereply
3. kb → kb /2 04.11.2012 20:41 Azoth

я успешный задрот, потому не смог выдержать тот педофил-тред

#thfszs/3
rereply
4. 238328 04.11.2012 20:41 4110477910135235979959445

ты пропустил самою мякоть порст

#thfszs/4
rereply
5. 238328 → kb /2 04.11.2012 20:42

лол

#thfszs/5
rereply
Do you really want to delete ?