Говнокод #12056 — Haskell — Говнокод.ру

Haskell / Говнокод #12056

−82
1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
```
only :: (Integral nt) => nt -> [Bool]
only n = [ x `mod` n == 0 | x <- [0..] ]

each :: (Integral nt) => nt -> [a] -> [a]
each n xs = [ snd x | x <- filter fst $ zip (only n) xs ]

main = do print $ each 2 [1,2,3,4,5,6,7,8,9]
```
Haskell. Получение каждого n-го элемента списка.

Запостил: Fai, 05 Ноября 2012

Tweet
Комментарии (104) RSS
- serpinski 05.11.2012 00:49 # +1
  
  Интегралы мы ещё в школе проходили.
  Ответить
- LispGovno 05.11.2012 00:53 # +1
  
  Я ждал этого. На самом деле действительно переодически приходится "теговать" элементы дополнительной информацией (хоть это и не тот случай, когда это необходимо), так вот тогда код становится некрасивый. Далеко не всегда можешь придумать, как от этого избавится.
  Ответить
  - Fai 05.11.2012 01:09 # +1
    
    Если под тегованием понимается (only :: (Integral nt) => nt -> [Bool]), то оно и тут необязательно.
    
    Если нет, прошу пояснить.
    Ответить
    - LispGovno 05.11.2012 02:26 # +2
      
      превращение списка [xi] в [(xi, tagi)]
      Ответить
      
      Fai 05.11.2012 02:30 # +2
      
      Здорово. Как правильно было замечено, именно в этом и была проблема.
      Ответить
- LispGovno 05.11.2012 00:55 # +2
  http://ideone.com/RILglX
  
  a = [1..50] b = [1..] aion [] ld = ld aion ls ld = (head ls) : ld skipEachN _ [] = [] skipEachN n l = aion dl $ skipEachN n dl where dl = drop n l main = do print $ skipEachN 5 a print $ take 10 $ skipEachN 5 b
  Ответить
  - unu-foja 05.11.2012 00:57 # +3
    
    each n = unfoldr $ \xs -> do (x:_) <- Just xs; Just (x, drop n xs)
    Ответить
    - Fai 05.11.2012 01:01 # +1
      
      Что за язык?
      Ответить
      
      LispGovno 05.11.2012 01:02 # +2
      
      Ты не поверишь:
      http://ideone.com/fo8esL
      Ответить
      
      unu-foja 05.11.2012 01:03 # +3
      
      тот же самый, небольшой abuse MonadFail ( .. <- ..) для Maybe
      Ответить
      
      LispGovno 05.11.2012 01:06 # 0
      
      Беги от Хаскеля как от огня, а то начнешь такую же ерунду писать (или хуже).
      Ответить
    - LispGovno 05.11.2012 01:04 # +1
      
      Ололо:
      http://ideone.com/wXzfi8
      Ответить
  - Fai 05.11.2012 01:12 # +2
    
    Код хороший, только вот делает не совсем то, что первоначальный.
    Ответить
    - LispGovno 05.11.2012 01:16 # +2
      
      >Код хороший, только вот делает не совсем то, что первоначальный.
      Ниже исправил это кощунство:
      http://govnokod.ru/12056#comment158782
      Ответить
      
      Fai 05.11.2012 01:22 # +2
      
      Ну теперь отличный код.
      Ответить
- LispGovno 05.11.2012 00:58 # 0
  
  >Получение каждого n-го элемента списка.
  Лол, что ты написал? Почему у тебя первый элемент списка считается энным?
  http://ideone.com/2GtgDK
  Ответить
  - unu-foja 05.11.2012 01:02 # +3
    
    > первый элемент списка
    кэп намекает, что в списках хаскеля индексирование принято с 0
    Ответить
    - LispGovno 05.11.2012 01:10 # +2
      
      Оки, уговорил:
      http://ideone.com/YpEGDB
      
      a = [1..50] b = [1..] aion [] ld = ld aion ls ld = (head ls) : ld skipEachN _ [] = [] skipEachN n l = aion l $ skipEachN n dl where dl = drop n l main = do print $ skipEachN 4 a print $ take 10 $ skipEachN 4 b
      Ответить
      
      roman-kashitsyn 05.11.2012 01:28 # +4
      
      > aion ls ld = (head ls) : ld
      почему не
      aion (x:_) ld = x : ld
      Где хвалёные навыки паттерн-матчинга
      Ответить
      
      LispGovno 05.11.2012 01:44 # +1
      
      .
      Ответить
      
      Fai 05.11.2012 01:33 # +4
      
      Чутка улучшил:
      
      each _ [] = [] each n (x:xs) = x: (each n $ drop (n - 1) xs)
      
      Нормально?
      Ответить
      
      roman-kashitsyn 05.11.2012 01:37 # +4
      
      Пока это самый лучший и очевидный вариант :)
      Ответить
      
      unu-foja 05.11.2012 16:51 # +4
      
      есть еще sieve http://hackage.haskell.org/packages/archive/utility-ht/latest/doc/html/Data-List-HT.html#g:5
      Ответить
      
      LispGovno 05.11.2012 01:37 # +3
      
      http://ideone.com/R9KFE1
      Ага, годнота.
      Ответить
      
      LispGovno 05.11.2012 01:41 # +3
      
      Только сигнатуру функции добавь, а то ошибка:
      http://ideone.com/bjbH3A
      Ответить
      
      Fai 05.11.2012 01:48 # +2
      
      Хм. А в чём причина? Хочу разобраться.
      
      upd: вижу. Он не может узнать, что за тип у списка при передаче пустого.
      Ответить
      
      Fai 05.11.2012 01:57 # +1
      
      Стоп.
      each :: Int -> [a] -> [a] - не работает!
      
      Получается нужно явно указывать тип "a" или при использовании писать (each 1 []) :: Type.
      
      Криво.
      Ответить
      
      LispGovno 05.11.2012 02:09 # +2
      
      each :: (Show a, Integral n) => n -> [a] -> [a]
      Должно быть как-то так, но это не правильно скорее всего, поэтому ждем какого-нибудь Хацкелиста.
      Ответить
      
      Fai 05.11.2012 02:27 # +2
      
      Все-равно не работает:
      http://ideone.com/4vi9eJ
      Ответить
      
      roman-kashitsyn 05.11.2012 10:15 # +4
      
      Дополнительные аннотации типа не нужны, Show тем более. Проблема глубже: даже
      main = print []
      не работает, т.к. print вызывает полиморфную функцию show, а для пустого списка непонятно, что вызывать. Поэтому нужно явно указывать тип пустого списка.
      На самом деле, это не такая уж большая проблема, т.к. явно передавать пустой список мало кому нужно: обычно они возникают в процессе обработки, и его "тип" известен.
      Ответить
  - Fai 05.11.2012 01:18 # +1
    
    >> Почему у тебя первый элемент списка считается энным?
    > в списках хаскеля индексирование принято с 0
    
    Именно.
    Ответить
    - LispGovno 05.11.2012 01:20 # 0
      
      Ты так говоришь, как будто 0 это степень n.
      Ответить
      
      Fai 05.11.2012 01:40 # +1
      
      Грубо говоря берутся все элементы, индексы которых делятся на n.
      
      А т.к. 0 делится на n* априори, берётся и он.
      
      * Исключая n = 0
      Ответить
- LispGovno 05.11.2012 02:41 # +2
  Можно ещё как-то так:
  
  skipEachN n l = zipWith (!!) l [0, n - 1 ..]
  
  Только что-то не компилится тоже:
  http://ideone.com/lyFejA
  Ответить
  - Fai 05.11.2012 02:56 # +2
    
    Вот так работает:
    
    each n xs = [ xs!!i | i <- [0, n .. len xs - 1] ]
    Ответить
    - Fai 05.11.2012 03:00 # +2
      
      А нет. Может вылететь, если список очень маленький.
      Ответить
  - Fai 05.11.2012 03:15 # +2
    
    !!!
    each n xs = zipWith (!!) (repeat xs) [0, n.. len xs - 1]
    
    Проблема была в том, что оператор !! применим только как (массив!!индекс), а он применялся как (значение_массива!!индекс).
    
    Так что приходится делать repeat(xs) для получения списка. Но есть вариант получше:
    http://ideone.com/Sc3KOY
    
    Вот он чемпион читабельности!
    Ответить
    - Fai 05.11.2012 03:28 # +2
      
      Есть минус - не работает с бесконечными списками.
      Ответить
    - LispGovno 05.11.2012 03:31 # +1
      
      >(repeat xs)
      Эка я протупил.
      
      >Вот он чемпион читабельности!
      И вот и ты уже не спишь... Хаскель не нужен)))
      Только есть одна проблема. Этот чемпион не может в бесконечные списки, так что не вариант. Подозреваю, что и производительность из-за !! оставляет желать лучшего.
      Ответить
- Fai 05.11.2012 03:26 # +2
  
  Подводя итоги скажу, что проблема изначально была в попытке представить эту функцию операциями над списком значений, хотя необходимо было работать с индексами.
  Ответить
- USB 05.11.2012 03:39 # +4
  
  Они нашли друг друга!
  Ответить
- LispGovno 05.11.2012 03:43 # +3
  each _ [] = [] each n (x:xs) = x: (each n $ drop (n - 1) xs)
  
  Пока это самый очевидный и самый правильный вариант, если сигнатурку типов поправить
  Ответить
  - Fai 05.11.2012 03:46 # +2
    
    Есть ещё вариация:
    
    each _ [] = [] each n xs@(x:_) = x: each n (drop n xs)
    
    Немного короче, более понятная в правой части и менее понятная в левой. Хотя кому-как.
    Ответить
    - LispGovno 05.11.2012 03:50 # +2
      
      each _ [] = [] each n xs@(x:_) = x: each n $ drop n xs
      Ответить
      
      Fai 05.11.2012 03:53 # +2
      
      Тогда нужно
      
      each n xs@(x:_) = x: (each n $ drop n xs)
      Ответить
      
      LispGovno 05.11.2012 03:56 # +2
      
      each n xs@(x:_) = (x:) $ each n $ drop n xs
      Ага, не стало лучше...
      Ответить
      
      Fai 05.11.2012 04:03 # +3
      
      Можно и так:
      
      each n xs = head xs: each n (drop n xs)
      
      С одной стороны читается лучше и запись короче, с другой стороны обосрут же если первый элемент через head получать, а не через патерн-матчинг.
      
      upd: Кстати, есть мыло, аська, скайп для вопросов по ФП? Говнокод всё-таки не для этого.
      Ответить
      
      LispGovno 05.11.2012 04:05 # 0
      
      Упадет при []
      Ответить
      
      Fai 05.11.2012 04:11 # +2
      
      Так, первая строчка всегда была:
      each _ [] = []
      Ответить
      
      LispGovno 05.11.2012 04:13 # 0
      
      Ага, мне пора спать. :)
      Ответить
  - Fai 05.11.2012 03:50 # +2
    
    > если сигнатурку типов поправить
    
    Я уже выяснил, что можно не править. Проблема всё-таки в функции print которая не знает как вывести пустой список.
    
    main = print [] -- Ошибка
    
    Ответить
    - LispGovno 05.11.2012 03:51 # +1
      
      > Если сделать так:
      Костыль же вроде?
      
      upd: Хотя наверное ты прав.
      upd2:Ты обновил пост. Инфа не актуальна.
      Ответить
      
      Fai 05.11.2012 03:54 # +2
      
      Поправил уже. Так всё-равно не работало :(
      Ответить
- Vindicar 05.11.2012 11:01 # +3
  
  (Здесь должен был быть пост про удобство питона, где достаточно написать lst[::n], но мне неохота холиварить.)
  Ответить
  - TarasB 05.11.2012 11:03 # +4
    
    А на HQ9+N это записывается в один символ!
    Ответить
  - roman-kashitsyn 05.11.2012 11:05 # +6
    
    (Здесь должно быть замечание о том, что each ленив и может работать с бесконечными списками, но мне неохота холиварить)
    Ответить
    - Vindicar 05.11.2012 13:13 # +1
      
      Ну вообще в питоне есть itertools.islice(), но оно вроде как с ограничениями (не гарантируется работа с входной последовательностью длиннее чем sys.maxint элементов).
      Если надо больше, то придется делать всё самому.
      Ответить
      
      LispGovno 05.11.2012 13:21 # +1
      
      И список тоже?
      Ответить
      
      Vindicar 05.11.2012 13:29 # +3
      
      ну бесконечных списков в питоне нет. Хотя есть бесконечные последовательности, по которым можно итерироваться хоть до посинения. А вот фильтр, пропускающий наружу каждый n-й элемент такой последовательности - наверно придется делать самому.
      Ответить
      
      LispGovno 05.11.2012 13:47 # +2
      
      Мне тоже нравится елда. Жаль, что они не написали достаточно готовых алгоритмов для неё. В F#\OCaml этим не поскупились. Модуль Seq содержит все необходимое.
      Ответить
    - LispGovno 05.11.2012 13:45 # 0
      
      >each может работать с бесконечными списками
      Эти сказки можно рассказывать только ньюфагам, чтобы затащить в функциональщину.
      
      На деле список очень даже конечный. Притом предсказть конец бесконечного списка весьма не просто. Ты никогда не можешь быть уверен наверняка, что для обработи данной задачи тебе хватит объёмов памяти.
      Ответить
      
      Fai 05.11.2012 14:39 # +3
      
      > предсказть конец бесконечного списка
      
      head $ reverse [1..]
      Ответить
      
      LispGovno 05.11.2012 15:05 # +2
      
      Чем подсвечивал?
      
      length [1..]
      Ответить
      
      bormand 05.11.2012 15:27 # +2
      
      > Притом предсказть конец бесконечного списка весьма не просто.
      А зачем? Все равно ты не будешь использовать весь этот список, а возьмешь для вывода\сохранения только нужную его часть.
      
      На самом деле бесконечный список довольно удобная абстракция, сокращающая код - не надо писать отдельный случай для пустого списка. Я так писал Метод Наименьших Квадратов, который строит бесконечные вектора и матрицы, сводит к треугольному виду бесконечную систему уравнений, и выводит ответ нужной размерности... Если интересно - могу выложить.
      Ответить
      
      LispGovno 05.11.2012 15:29 # +3
      
      Как связаны бесконечные списки и случай пустого списка?
      Ответить
      
      bormand 05.11.2012 15:34 # +2
      
      Если мы работаем с конечным списком, то приходится писать так:
      map _ [] = [] map f (x:xs) = f x : map f xs
      
      Если же список бесконечен - то код упрощается:
      map f (x:xs) = f x : map f xs
      Ответить
      
      Fai 25.11.2012 09:37 # +1
      
      И надо еще сделать будет, что пустой список - бесконечный список из undefined.
      Ответить
      
      LispGovno 25.11.2012 15:11 # 0
      
      Поясни?
      Ответить
      
      Fai 25.11.2012 19:55 # 0
      
      -- Бесконечный список - это бесконечный список endlesList = [1,2..] -- Пустой список - это бесконечный список жоп (_|_) emptyList = cycle [undefined] -- Конечный список - это бесконечный список с началом из -- определенных значений и окончанием из бесконечного списка жоп finiteList = [1,2,3] ++ emptyList
      Ответить
      
      LispGovno 25.11.2012 20:21 # +2
      
      Зачем такое? Ты же перевернуть список не сможешь.
      Ответить
      
      Fai 26.11.2012 09:19 # +1
      
      Это в гипотетическом языке, где все есть бесконечный список.
      Ответить
      
      bormand 26.11.2012 09:46 # +2
      
      А как перевернуть бесконечный список?
      Ответить
      
      LispGovno 26.11.2012 10:13 # +1
      
      1)Пройти по списку рекурсивно до первой жопы, сохраняя в стеке значения.
      2)Разворачивать стек, создавая новый конечный список, который в конце тоже дополнится жопами.
      3) ...
      4)PROFIT
      
      Одна проблема: Когда мы создали первый [1], то он уже превращается в 1ницу с бесконечножопным хвостом, так что добавить следующий элемент списка уже не представляется возможным.
      
      Ну и как бы вообще совершенно не понятна идея этой бесполезной бесконечножопной фичи
      Ответить
      
      LispGovno 05.11.2012 15:31 # 0
      
      Вот говори что хочешь, а мне елды не хватает (бесконечные последовательности) в Хаскеле
      Ответить
      
      bormand 05.11.2012 15:39 # +1
      
      > мне елды не хватает
      А зачем она в языке с повсеместной ленивостью?
      Ответить
      
      LispGovno 05.11.2012 15:40 # +1
      
      Чтобы память не забивать бесконечной ерундой, если нужен однопроходный бесконечный список.
      Ответить
      
      bormand 05.11.2012 15:51 # +4
      
      Можно подумать, что в хаскеле бесконечный список забивает память. Не держи его за хвост, и gc будет пожирать ненужные его части.
      Ответить
      
      LispGovno 05.11.2012 16:03 # +1
      
      А ведь ты гений! Только вот написал ты чуть выше по коду let a=[1..] и лексически захваченная константа держит список за хвост. Что делать? Не пользоваться let для списков? Но это же не читаемо.
      Ответить
      
      bormand 05.11.2012 16:18 # +2
      
      Как вариант - where/let внутри самой функции.
      Ответить
      
      LispGovno 26.11.2012 10:17 # +1
      
      >Как вариант
      MRef на список? - мутабильное говно.
      Ещё варианты?
      Ответить
      
      bormand 26.11.2012 10:23 # +1
      
      > Как вариант - where/let внутри самой функции.
      f x = let a = [1..] in ...
      
      Вот тут a никто не держит кроме выражения, которое будет стоять на месте точек. Сборщик мусора отлично будет поедать этот список.
      Ответить
- guestinxo 26.10.2019 11:25 # 0
  Проложил.
  
  fu([], _, _, []). fu(Lst, N, 0, Rez) :- append([_], Cdr, Lst), fu(Cdr, N, N, Rez). fu(Lst, N, K, Rez) :- append([A], Cdr, Lst), K1 is K - 1, fu(Cdr, N, K1, CdrRez), append([A], CdrRez, Rez). remove_each_nth(Lst, N, Rez) :- N1 is N - 1, fu(Lst, N1, N1, Rez).
  
  https://ideone.com/4hYzxf
  Ответить
  - goatsinho 26.10.2019 15:15 # 0
    
    Пролог легко идентифицируется по символу :-
    В каком ещё языке есть такой?
    Ответить
    - MAPTbIwKA 26.10.2019 15:20 # 0
      
      кууик
      так гоатсе же в перле
      Ответить
    - guest8 26.10.2019 16:14 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      goatsinho 26.10.2019 16:43 # +1
      
      Минимальными правками добился того, чтобы интерпретатор «PHP» смог распарсить.
      Только не придумал, что делать со словом is.
      
      <?php define('N', 0 ); define('K', 0 ); define('_', '_' ); define('A', 'A' ); define('Lst', 'Lst'); define('Rez', 'Rez'); define('Cdr', 'Cdr'); define('CdrRez', 'CdrRez'); function fu ($Lst, $N, $K, $Rez) {return '';} function remove_each_nth($Lst, $N, $Rez) {return '';} function append ($array, $Cdr, $Lst) {return 0; } function prolog ($a, $b, $c, $d, $e, $f) {} $foo = 1; $bar = 1; $baz = 0; prolog($foo? fu([], _, _, []). fu(Lst, N, 0, Rez) :- append([_], Cdr, Lst), $bar? fu(Cdr, N, N, Rez). fu(Lst, N, K, Rez) :- append([A], Cdr, Lst), $K1 = K - 1, fu(Cdr, N, $K1, CdrRez), $baz? append([A], CdrRez, Rez). remove_each_nth(Lst, N, Rez) :- $N1 = N - 1, fu(Lst, $N1, $N1, Rez). _);
      
      https://ideone.com/F0Rau0
      Ответить
      
      goatsinho 26.10.2019 17:40 # 0
      
      Ещё немного аутизма:
      <?php define('N', 14 ); define('K', 88 ); define('_', '_' ); define('A', 'A' ); define('Lst', 'Lst'); define('Rez', 'Rez'); define('Cdr', 'Cdr'); define('CdrRez', 'CdrRez'); $hashtable = [ 13 => 'N1 is N - 1', 87 => 'K1 is K - 1', '_' => '' ]; function fu() { global $hashtable; $code = 'fu(' . @implode(', ', func_get_args()) . ')'; $hash = '0x' . sprintf('%08x', crc32($code)); $hashtable[$hash] = $code; return $hash; } function remove_each_nth() { global $hashtable; $code = 'remove_each_nth(' . implode(', ', func_get_args()) . ')'; $hash = '0x' . sprintf('%08x', crc32($code)); $hashtable[$hash] = $code; return $hash; } function append() { global $hashtable; $code = 'append(' . implode(', ', func_get_args()) . ')'; $hash = '0x' . sprintf('%08x', crc32($code)); $hashtable[$hash] = $code; return $hash; } function prolog() { global $hashtable; foreach(func_get_args() as $argument) { $parts = str_split($argument, 10); array_walk($parts, function(&$v, $k)use($hashtable) { $v = isset($hashtable[$v]) ? $hashtable[$v] : ' :- ' . $hashtable[-$v];}); echo implode(".\n", $parts) . ', '; } } $foo = 1; $bar = 1; $baz = 0; prolog($foo? fu([], _, _, []). fu(Lst, N, 0, Rez) :- append([_], Cdr, Lst), $bar? fu(Cdr, N, N, Rez). fu(Lst, N, K, Rez) :- append([A], Cdr, Lst), $K1 = K - 1, fu(Cdr, N, $K1, CdrRez), $baz? append([A], CdrRez, Rez). remove_each_nth(Lst, N, Rez) :- $N1 = N - 1, fu(Lst, $N1, $N1, Rez). _);
      Ответить
      
      goatsinho 26.10.2019 17:40 # 0
      
      https://ideone.com/iYzgKp
      
      Теперь надо сделать так, чтобы функция prolog прогоняла код с разными комбинациями переменных $foo, $bar, $baz, тогда удастся напечатать весь код.
      Ответить
      
      guest8 26.10.2019 18:19 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      bagrinho 26.10.2019 18:28 # 0
      
      А на каком ЯП можно написать программу, которая будет выглядеть как валидная программа на Хаскеле?
      Ответить
      
      guest8 26.10.2019 18:50 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      gost 26.10.2019 19:10 # 0
      
      На любом, вот она:
      
      Ответить
      
      guest8 26.10.2019 19:16 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      guest8 26.10.2019 19:16 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      guest8 26.10.2019 19:17 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      bagrinho 26.10.2019 19:23 # 0
      
      Можно проще: gcc -nostartfiles a.c
      Но мне страшно представить, на что будет нацелена точка входа.
      Ответить
      
      guest8 26.10.2019 21:54 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      bagrinho 26.10.2019 19:30 # 0
      
      Кстати, если вызвать с ключом -S, то окажется, что ассемблерный выхлоп непустой: там есть секция .text и директива .ident, в которой указана версия компилятора.
      Ответить
      
      guest8 26.10.2019 19:36 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      bagrinho 26.10.2019 20:08 # 0
      
      Надо смотреть стандартную библиотеку (libc) и стандартный модуль с точкой входа (crt0):
      https://en.wikipedia.org/wiki/Crt0
      Ответить
      
      guest8 26.10.2019 20:45 # −999
      
      показать все, что скрытоvanished
      Ответить
      
      CupuucKuu_nemyx 27.10.2019 22:32 # 0
      
      Ничего не понял. Co-cock.
      Ответить
      
      bagrinho 26.10.2019 19:16 # +1
      
      Скучаю по кодам serpinski:
      http://govnokod.ru/12144
      http://govnokod.ru/12149
      http://govnokod.ru/12173
      Ответить
      
      guest8 26.10.2019 19:16 # −999
      
      показать все, что скрытоvanished
      Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Помни, guest, за тобой могут следить!

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

Haskell / Говнокод #12056

Комментарии (104) RSS

Добавить комментарий