# ЯЗЫК TemplateHaskell #

импорт Control.Applicative
импорт Data.List
импорт Data.List.Utils
импорт Data.Maybe
импорт Data.Time
импорт HFlags
импорт Text.Printf

defineFlag "bigs_only" Правда "Показывать только крупные заказы."

Данные Trade = Торговля {_time ::! Int
                   , _price ::! Double
                   , _amount ::! Double
                   } Вывод (Eq, Show)

readCSVFile :: FilePath -> IO [Торговля]
readCSVFile файл = сделать
  Ls <- линии <$> ReadFile файл
  вернуть $ карты (\ [т, р, а] -> Торговля (читай т) (читай р) (читать)) $
    карта (сплит ",") $ Ls

aggPrice :: [Торговля] -> (Double, Double)
aggPrice л = (avgPrice, totAmount)
  где
    totAmount = сумма $ Карта _amount л
    avgPrice = (/ totAmount) $ сумма $ Карта wprice л
    wprice (Trade _ р а) = р * а

ShowTime :: Int -> строка
ShowTime з = показать $ addUTCTime (fromIntegral S) эпоха
  где
    эпоха = UTCTime (fromGregorian 1970 01 01) 0

Данные GTAG = LEV | КУПИТЬ | ПРОДАТЬ вывод (Eq, Show)
Данные TGroup = Single Trade | Группа GTAG [Торговля] при выводе (Показать)

groupTrades :: [Торговля] -> [TGroup]
groupTrades [] = []
groupTrades [т] = [Одиночный т]
groupTrades (t1: t2: ц) | withinSecond t1 t2 = идти (тэг t1 t2) t2 ц [t1]
                       | в противном случае = Single t1: t2 (groupTrades: ц)
  где
    withinSecond (Trade t1 _ _) (Trade t2 _ _) = абс (t2 - t1) <= 1
    перейти т X [] = [Рез группа Т (обратный (х: разреш))]
    перейти т х (у: YS) рес | withinSecond х у,
                        Только т» <- fitsTag т х у = переход т»у YS (х: Рез)
                      | в противном случае = (группа Т (обратный (х: Res))): groupTrades (у: YS)

    fitsTag LEV (Trade _ p1 _) (_ Trade p2 _) | p1 == p2 = Just LEV
                                              | p1 < p2 = Just ПОКУПКА
                                              | в противном случае = Just ПРОДАТЬ
    fitsTag BUY (Trade _ p1 _) (_ Trade p2 _) | p1 <= P2 = Just ПОКУПКА
    fitsTag ПРОДАВАТЬ (Trade _ p1 _) (_ Trade p2 _) | p1 >= P2 = Just ПРОДАТЬ
    не fitsTag _ _ _ = Nothing

    тег t1 t2 = fromJust $ fitsTag LEV t1 t2

combinedTransactions :: [Торговля] -> IO ()
combinedTransactions торгует = сделать
  пусть КТС = groupTrades сделок


      Выход :: TGroup -> IO ()
      Выход (Single (товарный т р а)) =, если flags_bigs_only &&  < 400
                                      затем вернуться ()
                                      еще Printf "% S:% .2f @% .2f \ п" (ShowTime т) р
      Выход (группа тегов TS) =, если сумма > 400 || не flags_bigs_only
                              затем Printf "% S: (% d тс в% DS)% .2f @% .2f% s (мин:% .2f, макс:% .2f) большие ц:% s \ п" stTime подсчитывать количество длительности avgPrice теги minPrice maxPrice Bigs
                              остальное возвращение ()
        где
          Та = ц голова
          TZ = последние ц
          кол = длина ц
          цены = карта _price Т.С.
          stTime = ShowTime $ _time та
          Продолжительность = _time TZ - _time та
          (AvgPrice, сумма) = aggPrice ц
          minPrice = минимальные цены
          maxPrice = максимальные цены
          BIGS :: [String]
          BIGS = карта (Printf "% .2f") $ Взять 4 $ реверс $ сортировать $ Карта _amount Т.С.
  Выходные каратов mapM_

главная :: IO ()
Основные = делать
  $ initHFlags "Анализ Bitcoin сделок"
  mtgox <- readCSVFile "mtgox.csv"
  combinedTransactions mtgox