Комментарии (5) RSS

• USB 12 лет ago # 0

  Стоит брать?

  Ответить

  • Stertor 12 лет ago # 0 ⇈

    >>Кот с собеседований.
    
    Мяу!

    Ответить

• unu-foja 12 лет ago # 0

  навскидку
  > openBraces = "({[" ... лучше [('(',')'), ... ] или свой Pair '(' ')'
  не было бы неидиоматичного !! + elemIndex, непонятно, почему не используются преимущества языка
  
  для сравнения (правда древний "hugs"): http://codepad.org/8GKpGQws - тут тоже пропущено, но если код не одноразовый, должны быть сигнатуры

  Ответить

  • USB 12 лет ago # 0 ⇈

    import Control.Applicative ((<$))
    import Control.Monad (forM_)
    import Text.ParserCombinators.Parsec
    -- import Data.Function (on)
    (f `on` g) x y = g x `f` g y
    
    balanced = "ok" <$ (many $ next '(' ')' balanced
                           <|> next '{' '}' balanced
                           <|> next '[' ']' balanced
                       )
        where next = between `on` char
    
    
    main = forM_ examples $ \input -> do
      putStrLn $ "\nvalidating " ++ input ++ "..."
      parseTest balanced input
    
    examples = ["({[{}]{}[]})",
    	"({}}{[{}]{}[]})",
    	"({[{}]{}[]}",
    	"({[{}]{}]})",
    	"({[{}{}[]})",
    	"",
    	"{}"]

    Вот это код! Тебя бы я взял.

    Ответить

  • USB 12 лет ago # 0 ⇈

    > !! + elemIndex
    Согласен. Очень чужеродно.
    Вот если бы он написал как вы говорите - ещё можно было бы подумать его взять:
    

    import Data.List
    import Data.Maybe
    import Data.Map (keys, fromList, elems) 
    import Data.Map as M (lookup)
    checkBraces "" = True
    checkBraces e = checkBrace e [] where
    	braceToBraceMap = fromList [('(',')'), ('{','}'), ('[',']')]
    	openBraces = keys braceToBraceMap
    	closeBraces = elems braceToBraceMap
    	braceToBrace brace = fromJust $ M.lookup brace braceToBraceMap
    	checkBrace (c:e) s | elem c openBraces = checkBrace e ((braceToBrace c):s)
    	checkBrace (c:e) (h:s) | (elem c closeBraces) && (h==c) = checkBrace e s
    	checkBrace (_:e) _ = False
    	checkBrace "" [] = True
    	checkBrace "" _ = False
    main = mapM_ (print . checkBraces) bracesExpressionExamples where
    	bracesExpressionExamples = 
    		[
    			"({[{}]{}[]})",
    			"({}}{[{}]{}[]})",
    			"({[{}]{}[]}",
    			"({[{}]{}]})",
    			"({[{}{}[]})",
    			"",
    			"{}"
    		]

    
    http://ideone.com/1OIrFf
    А так он даже умение пользоваться монадами не продемонстрировал.
    Ещё заметьте, в своем коде случаи:
    checkBrace "" [] = True
    checkBrace "" _ = False
    вместо "" он написал [], что явно не так читабильно

    Ответить