Кто лучше?

Непопадающие в другие разделы и прочие философские темы

Re: Кто лучше?

Сообщение DPX-Infinity » 06 фев 2010, 20:21

нет. произвольное - из текста. я же говорю, парсер. разбор выражения.
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Кто лучше?

Сообщение Zver » 06 фев 2010, 20:21

да я понял, щас чёнить заварганим...
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Кто лучше?

Сообщение Zver » 06 фев 2010, 20:43

o.O ну нах. Давай чёнить проще...
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Кто лучше?

Сообщение Кадет » 06 фев 2010, 20:51

2 последних поста убили наповал :)
Кадет
Активный участник
 
Сообщения: 1497
Зарегистрирован: 23 апр 2008, 21:08

Re: Кто лучше?

Сообщение DPX-Infinity » 06 фев 2010, 21:07

ахахахахахаха)))) слабак)
Код: Выделить всёРазвернуть
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 :)
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Кто лучше?

Сообщение DPX-Infinity » 06 фев 2010, 21:22

придумайте ктонить задачу, я не умею придумывать :crazy:
Изображение
Переходите на Jabber! За ним будущее!
Желаю вам опенсорса!
Аватара пользователя
DPX-Infinity
Активный участник
 
Сообщения: 723
Зарегистрирован: 02 сен 2007, 20:45
Откуда: Саратов

Re: Кто лучше?

Сообщение Zver » 06 фев 2010, 22:28

Йа умею :D
Задача - подсчитать кол-во каждых букв алфавита (и цифр) из данного текста. :)
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Кто лучше?

Сообщение Zver » 06 фев 2010, 22:28

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

а ты терь попробуй на пхп реализовать)
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Re: Кто лучше?

Сообщение Кадет » 06 фев 2010, 22:39

Задача:
имеется текстовый файл со словами, необходимо реализовать поиск слов на заданную букву (первую разумеется).
Кадет
Активный участник
 
Сообщения: 1497
Зарегистрирован: 23 апр 2008, 21:08

Re: Кто лучше?

Сообщение Zver » 06 фев 2010, 22:40

У мя интересней :crazy:
Zver
Активный участник
 
Сообщения: 1333
Зарегистрирован: 18 дек 2008, 18:51
Откуда: Саратов, Заводской

Пред.След.

Вернуться в Разное

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 27

cron