посмотрите пожалуйста мой говнокод

http://govnokod.ru/

благодарю, но это в тэги а не в ответы

Какой-то непонятный пердолинг.

хм, ну че непонятно-то? читаем следующий символ и переходим в соответствующее состояние. Больше там ничего и нету.

Есть уверенность что there is potential for improvement.

в шелле у тебя тоже 3/8 haskell и 5/8 на другом языке?

ну сам посмотри. Похоже что да, вроде хаскель а написано как-то низкоуровнево.

спасибо! а это всегда так в хаскелевом стиле пишут — типа, убедился что функция работает и зашифровал ее до неузнаваемости? С зипом, правда, в сто раз лучше.

переходим в соответствующее состояние.

ИМХО плохо, что состояния размазаны по всеему коду. Ну и комментировать надо не только случаи, которые тебе кажутся сомнительными. А так - очень даже интересно.

Кстати '\n' в этом вашем хаскеле парсится в зависимости от платформы?

говорят, всё должно парситься как надо http://stackoverflow.com/questions/3650806/native-newline-characters

А про состояния — надо было как-то отделить чистый код от IO actions, в результате получились эти move и loop.

а это всегда так в хаскелевом стиле пишут — типа, убедился что функция работает и зашифровал ее до неузнаваемости?

Это мне тоже не нравится. Что хуже всего, hlint такие вещи иногда «рекомендует». Из-за этого я его даже перестал использовать.

Но советую, тем не менее, пропустить через этот hlint. Только нужно помнить, что иногда он фигню советует.

спасибо, про hlint я чёто забыл

убедился что функция работает и зашифровал ее до неузнаваемости

Так только малолетние позеры пишут.

вопрос, а это для учебы или цель сделать замену haskelline?

Не для учебы, просто так. Ну и на работе аналогичный интерфейс для клиента есть на перле так я переписал клиентскую библиотеку на хаскеле и шелл тоже решил заменить.

а почему не haskelline, readline, там много интересного уже реализовано.

rmdups == Data.List.nub

startsWith == [MissingH]Data.(String|List).Utils.startsWith

 UpSearch (b, p, f) -> do
              if null p then loop (PurePrefix (b, p, f))
                else do

я бы тут гарды использовал

startsWith, rmdups

Data.List: isPrefixOf, nub?

shell

А вынести обработку enter / down / up / tab в отдельные ф-ии?

Честно говоря, читается не очень легко.

// вот откопал у себя пример на haskelline (оттуда используется лишь несколько низкоуровневых ф-ий для работы с историей): http://lpaste.net/91090

getBuffer :: State -> String

Тоже не очень: TypeCon (..,..) вряд ли лучше TypeCon .. .., общее поле лучше выносить: type State = (Buffer, SearchState), да и всегда можно:

data D = A { common :: String, a :: Int } | B { common :: String, b :: Float }
common $ A "test" 5

reverse . tail . reverse

Даже если бы не было init, это неэффективно (ну мало ли будет expand-glob, как ^X* в zsh).

x = ss !! 0
b = x !! 0

Паттерматчинг

| c == '\t'
| c == '\n'

Паттерматчинг

if null buffer then ... else ...

..Паттернматчинг

data State = Newline (String, [String], [String])

В тупле тут никакого смыла, пиши сразу Newline String [String] [String]

concat $ intersperse "\n" ["modUname", "modLs", "modCat", "modTailF"]

Data.List.intercalate

А так норм, императивненько.

А да, вместо

reverse . tail . reverse

пишут

drop' :: Int -> [b] -> [b]
drop' = zipWith const xs (drop n xs)

и, соответственно, reverse . tail . reverse = drop' 1

Haskeline поудобней все-таки. К тому же с readline у меня были проблемы с историей, которые решились только использованием haskeline.

убедился что функция работает и зашифровал ее до неузнаваемости

Не всегда, но иногда. :)

Красава

drop' = zipWith const xs (drop n xs)

А где параметры слева? Тогда уж <fat>ap (zipWith const) . drop

startsWith = isPrefixOf

тред не читал.

если выбор был бы readline я бы спросил, почему не haskeline =).

ну лист я заменю потом на что-нибудь более подходящее

Для пользователя haskelline чем лучше-то? Один «биндинг» аки map в виме - жуть.

когда смотрю на haskell то меня не покидает стойкое ощущение инопланетного мессаджа.

Спасибо, что поделился.

concat $ intersperse "\n" ["modUname", "modLs", "modCat", "modTailF"]

Data.List.intercalate

unlines

чорт, надо уже словарь заводить со всеми названиями :)

когда смотрю на haskell то меня не покидает стойкое ощущение инопланетного мессаджа.

Поэтому он так популярен среди школоты, ведь айфон последней модели им не доступен, вот и приходится выделяться среди сверстников таким нищебродским способом.