Говнокод #17756 — C# — Говнокод.ру

C# / Говнокод #17756

+2
1. 01
2. 02
3. 03
4. 04
5. 05
6. 06
7. 07
8. 08
9. 09
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
```
int a,b,c,d,e,f, k = 1;
 
 
 
 
            for (a = 0; a < 9; a++)
                for (b = 0; b < 9; b++)
                    for (c = 0; c < 9; c++)
 
                        for (d = 0; d < 9; d++)
                            for (e = 0; e < 9; e++)
                                for (f = 0; f < 9; f++)
                    {
                        if (a + b + c == d + e + f && a+b+c == 13)
                            k = k + 1;
                    }
  
 
 
            Console.WriteLine("кол-во комбинаций: " + k + " ");
            Console.WriteLine("кол-во билетов: " + k * k);
```
Очередные лабы... God, whyyy...

Запостил: Psilon, 09 Марта 2015

Tweet
Комментарии (30) RSS
- Psilon 09.03.2015 23:34 # 0
  
  "Назовем шестизначное число счастливым, если сумма первых его трех цифр равна сумме последних трех. Подсчитать число счастливых шестизначных цифр, у которых сумма трех цифр равна 13."
  Ответить
  - kegdan 10.03.2015 00:07 # 0
    
    у которых сумма трех цифр равна 13 - трех первых или трех любых?
    Ответить
    - absolut 10.03.2015 08:04 # +3
      
      трёх средних
      Ответить
  - bormand 10.03.2015 07:44 # +2
    
    Ну, собственно, код прост и нагляден. А современному процу до миллиона посчитать - раз плюнуть. В общем для одноразовой лабы сойдёт.
    Ответить
- kegdan 10.03.2015 00:35 # +3
  
  ошибки -
  циклы не включают 9
  к изначально 1 а не 0
  возведение в квадрат нинужно
  Ответить
- kegdan 10.03.2015 00:51 # 0
  бред в 4 утра
  
  http://ideone.com/XKDaNw
  Ответить
  - wvxvw 10.03.2015 01:11 # +4
    
    digit(X) :- member(X, [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]). lucky(A, B, C) :- digit(A), digit(B), digit(C), AB is A + B, ABC is AB + C, ABC = 13. findall([A, B, C], lucky(A, B, C), Y), length(Y, Z). Y = [[0, 4, 9], [0, 5, 8], [0, 6, 7], [0, 7, 6], [0, 8, 5], [0, 9, 4], [1, 3|...], [1|...], [...|...]|...], Z = 75.
    Ответить
    - kegdan 10.03.2015 01:16 # +4
      
      пролог, пролог, как давно я его не видел!
      
      main = print. flip (^) 2 $ length [1|x<-l,y<-l,z<-l, x+y+z ==13] where l = [0..9]
      Ответить
      
      kegdan 10.03.2015 11:38 # +1
      
      Не подскажите че это я квадратичную задачу кубом решаю?
      
      main = print. flip (^) 2 $ length [1|x<-l,y<-l, x+y >= 13-9, x+y <= 13] where l = [0..9]
      Ответить
      
      bormand 10.03.2015 11:54 # 0
      
      А где тут куб?
      Ответить
      
      kegdan 10.03.2015 12:02 # 0
      
      x<-l,y<-l,z<-l
      же
      
      когда можно x<-l,y<-l и 2 условия
      Ответить
      
      wvxvw 10.03.2015 16:44 # 0
      
      Это читерство, так можно и на бумажке решить, а потом ответ подставить.
      Ответить
      
      1024-- 10.03.2015 17:00 # 0
      
      Кстати, flip (^) 2 - это горе от ума. (^2)
      Тут и без квадрата можно обойтись:
      
      main = print . sum $ xs where xs = [length xs|x<-l,y<-l, x+y >= 13-9, x+y <= 13] l = [0..9]
      Ответить
      
      Abbath 12.03.2015 17:35 # +1
      
      Опять питушня flip (^) 2 вместо (2^)
      Ответить
    - Psilon 10.03.2015 01:44 # 0
      
      Нооорм. Хотя бага есть - ноль ведущим быть не может.
      Ответить
      
      kegdan 10.03.2015 06:11 # +1
      
      >>кол-во билетов
      >> билетов
      >>ноль ведущим быть не может
      
      щито?!
      Ответить
      
      Psilon 10.03.2015 16:11 # +2
      
      Ок, ок, был не прав, уже сливаюсь *плюх, пшшшшшш*
      Ответить
    - laMer007 12.03.2015 18:58 # 0
      
      А я думал на прологе будет самый короткий вариант, а не на хаски. Но то что он будет самым не оптимальным - это точно)
      Ответить
      
      wvxvw 13.03.2015 00:03 # 0
      
      use_module(library(clpfd)). lucky(A, B, C) :- [A, B, C] ins 0..9, maplist(indomain, [A, B, C]), sum([A, B, C], #=, 13). % ?- findall([A, B, C], lucky(A, B, C), Y), length(Y, Z).
      
      Если сильно напрячься, то можно и короче (но с библиотеками).
      Ответить
      
      kegdan 13.03.2015 00:34 # 0
      
      подскажите нубцу как это правильно написать, а то я сегодня первый день
      
      (+/+/+/ 13= (i.+/i.+/i.) 10)^2
      Ответить
      
      kegdan 13.03.2015 00:50 # 0
      
      нашел как квадрат можно так записать. меня нахождение суммы смущает
      
      *:+/+/+/13=(i.+/i.+/i.)10
      Ответить
      
      wvxvw 13.03.2015 01:04 # 0
      
      Ну фрейм можно заполнить и так: (3 $ 10) $ i. 10
      Ответить
      
      wvxvw 13.03.2015 01:10 # 0
      
      А, не, я не правильно задумку понял.
      Ответить
      
      kegdan 13.03.2015 11:36 # 0
      
      *:+/+/(>:&4*.<:&13)(i.+/i.)10
      Ответить
      
      bormand 13.03.2015 11:38 # +2
      
      Как вы это читаете?
      Ответить
      
      kegdan 13.03.2015 11:42 # +1
      
      квадрат суммы сумм (больших или равных 4 и меньших или равных 13) (целых чисел до x таблично сложенных с целыми чиселами до x) где x = 10
      Ответить
- superhacker777 10.03.2015 01:48 # 0
  
  Помню, сидел я на экологии и решал на бумажке эту задачу. Хотел, чтобы работало для всех систем счисления и для действительно больших чисел, но позже выяснилось, что моя реализация по какой-то причине не работает при двадцати трех и выше десятичных разрядах, ну а также совсем нестабильно работает в системах с основаниями, отличными от десяти. Код показывать не буду, потому что засмеёте, но я строил матрицу, определенно имеющую много общего с треугольником Паскаля, и по ней явно будет видно, что для каждой части шестизначного номера (то есть для левой и правой) количество комбинаций будет равно 75, и, следовательно, искомое число сатанически счастливых билетов будет равно 75 * 75 = 5625. Вот дебаг-вывод программы, если кому из юных читателей вдруг покажется это интересным: http://pastebin.com/iH6w8sHp
  Ответить
- absolut 10.03.2015 08:03 # 0
  
  Самое интересное со 2 по 5 строку. И может быть ещё 17-19.
  Ответить
  - TarasB 10.03.2015 17:06 # +2
    
    Одиночные пробелы вместо ожидаемых пустых строк? ВОТ ЭТО ПОРОВОТ
    Ответить
    - roman-kashitsyn 10.03.2015 17:22 # 0
      
      А что если это на самом деле программа на whitespace?!
      Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

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

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

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

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

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

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

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

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

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

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

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

C# / Говнокод #17756

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

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