Форум сервиса вфосе.ру

нет. произвольное - из текста. я же говорю, парсер. разбор выражения.

да я понял, щас чёнить заварганим...

o.O ну нах. Давай чёнить проще...

2 последних поста убили наповал

ахахахахахаха)))) слабак)

Код: Выделить всё • Развернуть

import Text.Parsec
import Text.Parsec.String
import Control.Monad
import Data.Either

main = forever $ getLine >>= return . check . parse aterm "stdin" >>= putStrLn

check :: (Show a) => Either ParseError a -> String
check = either show show

aterm = liftM2 (foldl op) mterm (many $ oop "+-" mterm)
    where
        op a ('+', t) = a + t
        op a ('-', t) = a - t

mterm = liftM2 (foldl op) term (many $ oop "*/" term)
    where
        op a ('*', t) = a * t
        op a ('/', t) = a `div` t

term = try number <|>
       (char '-' >> term >>= return . negate) <|>
       between (char '(') (char ')') aterm

oop s t = liftM2 (,) (oneOf s) t

number :: Parser Integer
number = do
    s1 <- option '+' (char '+' <|> char '-')
    let s = if s1 == '-' then "-" else ""
    m <- many1 digit
    return $ read (s++m)

в принципе можно короче, но мне лень) компилить надо ещё с расширением TupleSections

придумайте ктонить задачу, я не умею придумывать

Йа умею
Задача - подсчитать кол-во каждых букв алфавита (и цифр) из данного текста.

хахахахахаха)))) слабак)

а ты терь попробуй на пхп реализовать)

Задача:
имеется текстовый файл со словами, необходимо реализовать поиск слов на заданную букву (первую разумеется).

У мя интересней