- 1
- 2
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+1
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
делим список пополам
ЧЯДНТ?
1024-- 17.01.2016 20:12 # 0
Это сказал автор кода, когда ему сказали опубликовать его на ГК?
schwrzwldr_gbln 17.01.2016 20:24 # 0
wvxvw 18.01.2016 00:08 # +3
надо обязательно как-то так, ну и еще $$$$ где-нибудь рассыпать, и всяких <<||>> и >>=<< добавить.
roman-kashitsyn 18.01.2016 00:24 # +5
Abbath 19.01.2016 00:26 # 0
kegdan 19.01.2016 11:00 # 0
http://ideone.com/hJvMTf
roman-kashitsyn 19.01.2016 11:56 # +2
Здравствуйте, спейс-лики. Заменяем 10 на 100000 и получаем При использовании splitAt полёт нормальный.
guest 22.01.2016 00:53 # −2
Всё на виртуальных методах.
Например, у базового класса Чувак - методы Превёд, ПошёлНа и т.д.
Сервисмен наследует от Чувак, переопределяя метод Превед: если отказ в обслуживании, он выдаёт 'Извиняй, бро, сегодня ' + ЧтоЗаОблом(); , где метод ЧтоЗаОблом - абстрактный.
Торговец наследует от Сервисмен, определяя ЧтоЗаОблом как Хабар() + ' ' + рандом('закончились', 'не завезли', 'все распродал');
А как уже метод Хабар организовать - смотреть конкретно. Либо каждый торговец - это отдельный класс у которого этот метод тупо константную строчку возвращает, либо простыню на свичах, либо из класса самого хабара в полях торговца выковыривать.
AHCKujlbHblu_netyx 25.08.2021 00:46 # 0
coHTwmS 25.08.2021 02:24 # 0