- 1
- 2
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 3
+1
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
делим список пополам
ЧЯДНТ?
−95
char* _getvalue(....)
{
...
return("");
}
−95
/**
* Bit representation of index => bitMask = 2^(idx-1)
* When element is first in the list then bitMask=1
* for second bitMask=2, third will have bitMask=4 and so on
*/
static int bitMask = 1;
int main(int argc, char **argv){
...
bitMask = (int) pow(2, idx - 1);
...
}
По пидарским мотивам...
Пром.автоматы, роботы и прочее. Более 10 лет в отрасли. И так у нас в каждом исполняемом куске кода.