0xd34df00d 21.10.2012 18:54 Azoth_primary

Минут 15 писал калькулятор средневзвешенного двух цветов. Пришлось даже КАРРИРОВАТЬ @ ДЕКАРРИРОВАТЬ, и вообще, как-то страшно выглядит:

avgColor (c1, c2) (w1, w2) = foldl (++) "#" $ map (show' . (`div` (w1 + w2)) . (uncurry (+))) $ zip (wt c1 w1) (wt c2 w2)

haskell, говно
Recommended by:

@pooq: моча съела говно

@magog: да это же куда читабельнее, чем на плюсах, правда @Rayslava?

#thztis
re 8 comments !recommend ~bookmark Ssubscribe
1. violetta 21.10.2012 18:56 Time machine

Фолданул как в воду зипнул)))

#thztis/1
rereply
2. 0xd34df00d → violetta /1 21.10.2012 18:56 Azoth_primary

Покаррировал на ночь ))))

#thztis/2
rereply
3. Minoru 21.10.2012 19:34 antaeus

Что такое wt?

#thztis/3
rereply
4. 0xd34df00d → Minoru /3 21.10.2012 19:34 Azoth_primary

http://bpaste.net/show/5ocHWOn9WHKoHPvZF...

#thztis/4
rereply
5. Minoru → 0xd34df00d /4 21.10.2012 21:02 antaeus

readC легко сокращается до map fst . rights . map hexadecimal . take 3 . T.chunksOf 2, а show' — до printf "%02x" (import Data.Printf не забудь). С avgColor ничего сделать не смог; единственное замечание — я бы вместо uncurry (+) внутри map использовал zipWith (+) на месте zip.
Спасибо за небольшой code golf на ночь :)

#thztis/5
rereply
6. Minoru → Minoru /5 21.10.2012 21:12 antaeus

s/Data\.Printf/Text.Printf/

#thztis/6
rereply
7. ulidtko 22.10.2012 12:47

пиздец, говно нечитабельное

#thztis/7
rereply
8. 0xd34df00d → ulidtko /7 22.10.2012 12:49 Azoth_primary

Че.

#thztis/8
rereply
Do you really want to delete ?