Говнокод #6973 — Си — Говнокод.ру

Си / Говнокод #6973

+142
1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
```
case 43: /* + */
    sum_up += sum_up > 1 ? 0 : 1;
    return 1;
case 45: /* - */
    sum_up -= sum_up < 1 ? 0 : 1;
    return 1;
```
Если выше/ниже лимита то добавляем/отнимаем ничего.

ЗЫ sum_up это переменная контролирующая уровень вербозности (0,1,2) специальной мониторной проги. кнопками +/- можно интерактивно контролировать. К слову, сверху это уже правленый код. Оригинальный оригинал:
```
if (c == 43) { sum_up = sum_up > 1 ? sum_up : ++sum_up; return 1; }

if (c == 45) { sum_up = sum_up < 1 ? sum_up : --sum_up; return 1; }
```
Запостил: Dummy00001, 16 Июня 2011

Tweet
Комментарии (41) RSS
- Lure Of Chaos 16.06.2011 18:39 # +1
  
  > Оригинальный оригинал
  зачот!
  Ответить
- Esper 16.06.2011 19:22 # +1
  Ох, на C я бы написал где-то так:
  
  case '+': sum_up = (sum_up >= 2) ? 2 : (sum_up + 1); sum_up = (sum_up < 0) ? 0 : sum_up; return 1; case '-': sum_up = (sum_up <= 0) ? 0 : (sum_up - 1); sum_up = (sum_up > 2) ? 2 : sum_up; return 1;
  
  Но это грустно, это не весело.
  Весело - это:
  
  (let ((verbosity 1)) (defun update_verbosity (in_char) (setf verbosity (min 2 (max 0 (funcall (case in_char (#\+ #'1+) (#\- #'1-) (otherwise #'identity)) verbosity))))))
  Ответить
  - Dummy00001 16.06.2011 19:56 # +4
    
    я вас умоляю. код писаный по человечески:
    
    case '+': if (sum_up < 2) sum_up++; return 1; case '-': if (sum_up > 0) sum_up--; return 1;
    Ответить
    - Esper 16.06.2011 20:03 # 0
      
      А если '+' при sum_up = (-1) или '-' при sum_up = 10?
      Ответить
      
      Dummy00001 16.06.2011 21:55 # 0
      
      начальное значение 0. меняется только в этих двух строчках кода.
      Ответить
      
      Esper 17.06.2011 14:46 # 0
      
      Хорошо если это так. И хорошо, если так будет всегда.
      Ответить
  - wvxvw 17.06.2011 01:55 # 0
    
    Пытался придумать структуру, в которой: car первого элемента списка указывает на первый элемент списка (и при этом равен 0) и cdr последнeго элемента списка указывает на последний элемент (и при этом равен 2) . В таком случае min / math не были бы нужны, попытавшись перейти на индекс "за границами" списка, мы бы просто остались на последнем элементе. Но чего-то уже поздно, и не соображу как такое сделать :)
    Ну, как циклический список, только переход не с "первого" на "последний" а с "первого" на "первый" и с "последнего" на "последний".
    Ответить
    - wvxvw 17.06.2011 01:56 # 0
      
      min / math -> min / max :)
      Ответить
    - Esper 18.06.2011 19:52 # 0
      
      У меня получилось что-то такое. Как раз для этого сайта.
      
      (defun new-chain (d) (let ((x (cons d nil))) (car (setf (cdr x) (cons x x))))) (defun find-leftmost-element (n) (do ((c n (cadr c))) ((eq c (cadr c)) c))) (defun find-rightmost-element (n) (do ((c n (cddr c))) ((eq c (cddr c)) c))) (defun merge-chains (p q) (let ((l (find-leftmost-element q)) (r (find-rightmost-element p))) (setf (cdar l) r) (setf (cddr r) l) p) (defun take-n-steps-left (v n) (let ((c v)) (dotimes (i n c) (setf c (cadr c))))) (defun take-n-steps-right (v n) (let ((c v)) (dotimes (i n c) (setf c (cddr c))))) (defun get-value-for (v n) (car (cond ((< (car v) n) (take-n-steps-right v (- n (car v)))) ((> (car v) n) (take-n-steps-left v (- (car v) n))) (t v)))) (setf range_list (merge-chains (new-chain 0) (merge-chains (new-chain 1) (new-chain 2)))) (get-value-for range_list 4) (get-value-for range_list -1)
      Ответить
      
      guest 19.06.2011 10:31 # 0
      
      Смотрю, здесь в комментах сегодня собралось много интересных кусков кода на самых разных языках. Хорошо, что хоть на ПХП нет. :)
      Ответить
  - wvxvw 17.06.2011 13:27 # 0
    
    Еще немного эзотерики :)
    
    -module(plus_minus). -export([log_level/1, spawn_logger/1]). spawn_logger(Proc) -> register(Proc, spawn(plus_minus, log_level, [0])). head_or_default([], Default, _Comparator) -> Default; head_or_default([Head | Tail], Default, Comparator) -> case erlang:apply(erlang, Comparator, [Head, Default]) of true -> Head; false -> head_or_default(Tail, Default, Comparator) end. log_level(Level) -> PrintAndRestart = fun(Comparator) -> NewLevel = head_or_default([0, 1, 2], Level, Comparator), io:format("New log level: ~p~n", [NewLevel]), log_level(NewLevel) end, receive '+' -> PrintAndRestart('>'); '-' -> PrintAndRestart('<') end.
    
    Пользоватся:
    
    3> c(plus_minus). {ok,plus_minus} 4> plus_minus:spawn_logger(logger). true 5> logger ! '+'. New log level: 1 '+' 6> logger ! '+'. New log level: 2 '+' 7> logger ! '+'. New log level: 2 '+' 8>
    
    :)
    Ответить
    - wvxvw 17.06.2011 13:57 # 0
      
      -module(plus_minus). -export([log_level/1, spawn_logger/1]). spawn_logger(Proc) -> register(Proc, spawn(plus_minus, log_level, [0])). head_or_default([], Default, _Comparator) -> Default; head_or_default([Head | Tail], Default, Comparator) -> case Head - Default of Comparator -> Head; _ -> head_or_default(Tail, Default, Comparator) end. log_level(Level) -> PrintAndRestart = fun(Comparator) -> NewLevel = head_or_default([0, 1, 2], Level, Comparator), io:format("New log level: ~p~n", [NewLevel]), log_level(NewLevel) end, receive '+' -> PrintAndRestart(1); '-' -> PrintAndRestart(-1) end.
      Даже так...
      Ответить
      
      Esper 17.06.2011 14:49 # +3
      
      Вы пробуждаете во мне Prolog...
      Ответить
      
      guest 17.06.2011 18:26 # 0
      
      Этож Эрланг.
      Ответить
      
      wvxvw 17.06.2011 19:46 # 0
      
      Они очень похожи.
      Ответить
      
      guest 17.06.2011 19:49 # 0
      
      Это принципиально разные не сравнивые парадигмы.
      Ответить
      
      wvxvw 17.06.2011 20:19 # 0
      
      Java / JavaScript - тоже разные парадигмы.
      Ответить
      
      bugmenot 17.06.2011 20:22 # 0
      
      Java is to JavaScript as car is to carpet.
      Ответить
      
      wvxvw 17.06.2011 20:48 # 0
      
      :) Но смысл был в том, что они синтаксически похожи.
      Ответить
      
      bugmenot 17.06.2011 21:06 # 0
      
      это ни о чём не говорит, в то время все носились с явой и поэтому получилось похоже.
      Ответить
      
      absolut 17.06.2011 21:22 # +1
      
      ещё раньше все носились на явах ...
      Ответить
      
      wvxvw 17.06.2011 22:18 # +2
      
      language_syntactically_similar('JavaScript', 'Java'). language_syntactically_similar('Erlang', 'Prolog'). is_similar_language(X, Y) :- language_syntactically_similar(X, Y). % | ?- is_similar_language('Erlang', 'Prolog'). % is_similar_language('Erlang', 'Prolog'). % yes
      %)
      Ответить
      
      guest 18.06.2011 02:37 # 0
      
      >смысл был в том, что они синтаксически похожи.
      Зато не похожи симантически.
      Ответить
      
      absolut 18.06.2011 09:39 # +2
      
      >симантически
      джавамантически
      Ответить
      
      wvxvw 18.06.2011 10:27 # +3
      
      Если симантика имеет что-то общее с браузером SeaMonkey - тогда я не знаю :) Если имеется в виду семантика, тогда ваше утверждение спорно. Область применения семантики - описание отношений между представлением и значением. Если вы сравните представление термов, списков и переменных в Erlang и Prolog, то увидите, что они очень похожи.
      Но, как вы абсолютно правильно заметили, парадигмы отличаются, как отличаются и домены (сферы применения). Поэтому я не вижу причины спорить. Оба утверждения правильные и не противоречат друг другу.
      Ответить
      
      guest 18.06.2011 10:58 # 0
      
      +2
      Ответить
      
      absolut 18.06.2011 11:25 # 0
      
      >+2
      вас двое?
      Ответить
      
      guest 18.06.2011 11:39 # 0
      
      Попробуйте задать мне вопрос:
      "вас один?"
      и найдете ответ, содержащийся в вопросе.
      Ответить
      
      Lure Of Chaos 18.06.2011 16:11 # +1
      
      нас рать!
      Ответить
      
      bugmenot 18.06.2011 11:32 # 0
      
      ваше утверждение порно
      Ответить
      
      bugmenot 18.06.2011 11:04 # −1
      
      > симантически
      школатически, блеать
      Ответить
      
      guest 18.06.2011 11:35 # −1
      
      Тролль, по делу что есть?
      Ответить
      
      bugmenot 18.06.2011 11:57 # 0
      
      да, в следующий раз перед употреблением умного слова читай хотя бы википедию
      Ответить
      
      guest 18.06.2011 12:02 # −2
      
      Спасибо, ясно, нет.
      Ответить
      
      Lure Of Chaos 18.06.2011 16:12 # 0
      
      >симантически
      symantически
      Ответить
      
      bugmenot 18.06.2011 18:21 # 0
      
      семантические чернила белила
      Ответить
      
      absolut 19.06.2011 19:50 # 0
      
      античная sim-ка, такой пользовался Флинстоун.
      Ответить
      
      Esper 18.06.2011 13:14 # 0
      
      >
      case erlang:apply(erlang, Comparator, [Head, Default])
      
      Я заметил.
      Но тоска по логической парадигме наличествует. А функциональная достала чуть меньше объектно-ориентированной.
      Ответить
- 3.14159265 16.06.2011 19:27 # +3
  
  >sum_up = sum_up > 1 ? sum_up : ++sum_up;
  опасная это херня
  
  правленый код довольно неплох, а вот оригинальный оригинал 100% говно
  Ответить
  - TheCalligrapher 16.06.2011 20:20 # +5
    
    Да, оригинальный вариант порождает неопределенное поведение из-за множественной модификации 'sum_up'.
    Ответить
- guest8 09.04.2019 10:58 # −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] (подробнее)

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

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

Си / Говнокод #6973

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

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