- 1
clearScreen = putStr $ take 50 (repeat '\n')
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+120
clearScreen = putStr $ take 50 (repeat '\n')
Написано нормально, но вот задумка...
bormand 10.11.2012 07:28 # +3
Задумка нормальная, по крайней мере оно работает и кроссплатформенно (если терминал не выше 50 строк). Можно конечно написать putStrLn "\027[H\027[2J", но это не будет работать в винде. А других способов без дополнительных либ я не вижу.
Самым корректным решением, наверное, будет вот эта либа: http://hackage.haskell.org/packages/archive/ansi-terminal/0.5.0/doc/html/System-Console-ANSI.html. Тут и очистка, и цвета, и перемещение курсора... Поддерживает и win и *nix'овые терминалы.
> Написано нормально
bormand 10.11.2012 09:59 # 0
eth0 10.11.2012 11:26 # +2
bormand 10.11.2012 11:30 # +3
- плюсую предыдущего оратора!
- минусую предыдущего оратора!
- мне похуй!
2) Убрать существующие кнопки + и -.
3) ???
4) Profit
Fai 10.11.2012 11:40 # +2
Хорошая идея.
LispGovno 10.11.2012 12:28 # −2
scriptin 10.11.2012 12:35 # +4
LispGovno 10.11.2012 13:11 # 0
bormand 10.11.2012 13:20 # +2
Fai 10.11.2012 13:25 # +3
Fai 10.11.2012 13:21 # 0
bormand 10.11.2012 13:25 # +2
Fai 10.11.2012 13:29 # +6
http://img12.nnm.ru/f/b/8/c/9/fa0de9312ba20d5746821cd6a4f.jpg
bormand 10.11.2012 12:36 # +1
inkanus-gray 10.11.2012 17:57 # +2
zim 10.11.2012 18:16 # +3
3.14159265 12.11.2012 12:22 # +3
LispGovno 12.11.2012 12:36 # −3
PS: Плюсанул.
bormand 12.11.2012 12:54 # +1
Steve_Brown 12.11.2012 14:14 # +2
Вротмненоги! Как он это сделал?
bormand 12.11.2012 14:47 # +2
3.14159265 12.11.2012 15:02 # +2
[b][/b]
Ответ, как обычно, в вопросе.
bormand 12.11.2012 15:21 # +1
Нужно просто поставить галочку raw input.
Steve_Brown 12.11.2012 15:29 # +1
bormand 12.11.2012 15:33 # +2
Fai 12.11.2012 16:24 # 0