- 1
- 2
-- Hehehe
typeGroups ll = (\(t, tt) -> printf "\n~~~~~~~~~~~~~~~\n%s\n~~~~~~~~~~~~~~~\n%s" t (show tt)) >>= (nub . map (_measInfoId &&&(snd .unzip . M.toList . _measTypes)) . (>>= _measInfo) . (>>= _measData)) $ (concat `fmap` mapM (\file -> runX $ readXml file >>> parseFile)) ll
imihajlov 11.11.2015 10:26 # −1
kegdan 11.11.2015 10:38 # −1
gost 11.11.2015 15:20 # −1
guest 22.01.2016 02:07 # −1
CHayT 08.02.2016 16:16 # −1
я тут олдфаг нахуй
посмотри на дату моего первого говнокода
guest 22.01.2016 02:08 # −2
guest 22.01.2016 02:47 # −2
CHayT 08.02.2016 16:17 # −1
Propovednik_01 08.02.2016 23:01 # 0
p.s. въебал минус.
3_14dar 08.02.2016 23:10 # 0
Propovednik_01 08.02.2016 23:13 # 0
dxd 09.02.2016 01:51 # +1
nPOnOBeDHuK 01.11.2021 00:16 # 0