1. Куча / Говнокод #15796

    +143

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Lol1 = "1", Lol2 = "2"
set lols = array
lols.append Lol1
lols.append Lol2
set result = string
result = lols.foldl1 (++)
Put result

    Название языка ещё не придумал :)

    Mobac, 20 Апреля 2014

    Комментарии (6)

  2. Куча / Говнокод #15792

    +123

    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
    Type win32gui
Create object window
Set window title = "Window"
Set width window = 299
Set height window = 279
S1 = "y"
S2 = "="
S3 = "x^3+1"
Obj = "Graph"
Create object obj
Set obj graph = "y=x^3+1"
Display obj
Rewrite obj

    Название языка ещё не придумал :P

    Данный пример построит график y=x^3+1.
    Картинка тут - http://coun.at.ua/_sf/1/116_Screenshot1.png

    Mobac, 19 Апреля 2014

    Комментарии (13)

  3. Куча / Говнокод #15791

    +133

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Lol = "Lol"
Put Lol
Lol1 = "1", Lol2 = "2"
Put Lol1+Lol2
Set lol = string
Lol = "HELLO LOLLED GUYS!"
Put lol.lowcase
Lolka="lolka"
Put lolka.upcase

    Так сказать, новый язык программирования - название не придумал (помогите!!!).
    Результат выполнения программы:

    Lol
    3
    hello lolled guys!
    LOLKA

    Жду комментариев (напишите название для япа).

    Mobac, 19 Апреля 2014

    Комментарии (169)

  4. Куча / Говнокод #15789

    +123

    1. 1
    Я тут решил свой язык запилить, кто скажет, какой синтаксис кому нравится?

    Пишите в комментарии!

    Mobac, 19 Апреля 2014

    Комментарии (15)

  5. Куча / Говнокод #15788

    +121

    1. 1
    Wct Editor forever

    Ахаххахаха))

    Mobac, 19 Апреля 2014

    Комментарии (3)

  6. Куча / Говнокод #15785

    +117

    1. 1
    BACBBFBDGAAEAAAAAAAAAAAAAAAAAAAGGAAEAAAAAAAFAAAAAAAAAAAAFAAAAAAAAAAAFAAAAAAAAAAABAAAABAAAAAAAAAAAAAAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAACAAAAAAAAAAACAACAAAAACAAAAAAAAAAACAAAAACAAAAACAACAAAAAAAADAADAADAAAAADAADDEDAAAAADGADBCCEGAAAAAAAEABAAAAAAAAAEABEAAAAAAAAEACAAAAAAAAAEACEAAAAAAAAEADAAAAAAAAAEADEAAAAAAABAAAAAAAAAAABAAAEAAAAAAABAABAAAAAAAABAABEAAAAAAABAACAAAAAAAABAACEAAAAAAABAADAAAAAAAABAADEAAAAAAABEAAAAAAAAAABEAAEAAAAAAABEABAAAAAAAABEABEAAAAAAABEACAAAAAAAABEACEAAAAAAABEADAAAAAAAABEADEAAAAAAACAAAAAAAAAAACAAAEAAAAAAACAABAAAAAAAACAABEAAAAAAACAACAAAAAAAACAACEAAAAAAACAADAAAAAAAACAADEAAAAAAACEAAAAAAAAAACEAAEAAAAAAACEABAAAAAAAACEABEAAAAAAACEACAAAAAAAACEACEAAAAAAACEADAAAAAAAACEADEAAAAAAADAAAAAAAAAAADAAAEAAAAAAADAABAAAAAAAADAABEAAAAAAADAACAAAAAAAADAACEAAAAAAADAADAAAAAAAADAADEAAAAAAADEAAAAAAAAAADEAAEAAAAAAADEABAAAAAAAADEABEAAAAAAADEACAAAAAAAADEACEAAAAAAADEADAAAAAAAADEADEAAAABAAAAAAAAAAABAAAAAAEAAAABAAAAABAAAAABAAAAABEAAAABAAAAACAAAAABAAAAACEAAAABAAAAADAAAAABAAAAADEAAAABAAAEAAAAAAABAAAEAAEAAAABAAAEABAAAAABAAAEABEAAAABAAAEACAAAAABAAAEACEAAAABAAAEADAAAAABAAAEADEAAAABAABAAAAAAAABAABAAAEAAAABAABAABAAAAABAABAABEAAAABAABAACAAAAABAABAACEAAAABAABAADAAAAABAABAADEAAAABAABEAAAAAAABAABEAAEAAAABAABEABAAAAABAABEABEAAAABAABEACAAAAABAABEACEAAAABAABEADAAAAABAABEADEAAAABAACAAAAAAAABAACAAAEAAAABAACAABAAAAABAACAABEAAAABAACAACAAAAABAACAACEAAAABAACAADAAAAABAACAADEAAAABAACEAAAAAAABAACEAAEAAAABAACEABAAAAABAACEABEAAAABAACEACAAAAABAACEACEAAAABAACEADAAAAABAACEADEAAAABAADAAAAAAAABAADAAAEAAAABAADAABAAAAABAADAABEAAAABAADAACAAAAABAADAACEAAAABAADAADAAAAABAADAADEAAAABAADEAAAAAAABAADEAAEAAAABAADEABAAAAABAADEABEAAAABAADEACAAAAABAADEACEAAAABAADEADAAAAABAADEADEAAAACAAAAAAAAAAACAAAAAAEAAAACAAAAABAAAAACAAAAABEAAAACAAAAACAAAAACAAAAACEAAAACAAAAADAAAAACAAAAADEAAAACAAAEAAAAAAACAAAEAAEAAAACAAAEABAAAAACAAAEABEAAAACAAAEACAAAAACAAAEACEAAAACAAAEADAAAAACAAAEADEAAAACAABAAAAAAAACAABAAAEAAAACAABAABAAAAACAABAABEAAAACAABAACAAAAACAABAACEAAAACAABAADAAAAACAABAADEAAAACAABEAAAAAAACAABEAAEAAAACAABEABAAAAACAABEABEAAAACAABEACAAAAACAABEACEAAAACAABEADAAAAACAABEADEAAAACAACAAAAAAAACAACAAAEAAAACAACAABAAAAACAACAABEAAAACAACAACAAAAACAACAACEAAAACAACAADAAAAACAACAADEAAAACAACEAAAAAAACAACEAAEAAAACAACEABAAAAACAACEABEAAAACAACEACAAAAACAACEACEAAAACAACEADAAAAACAACEADEAAAACAADAAAAAAAACAADAAAEAAAACAADAABAAAAACAADAABEAAAACAADAACAAAAACAADAACEAAAACAADAADAAAAACAADAADEAAAACAADEAAAAAAACAADEAAEAAAACAADEABAAAAACAADEABEAAAACAADEACAAAAACAADEACEAAAACAADEADAAAAACAADEADEAAAADAAAAAAAAAAADAAAAAAEAAAADAAAAABAAAAADAAAAABEAAAADAAAAACAAAAADAAAAACEAAAADAAAAADAAAAADAAAAADEAAAADAAAEAAAAAAADAAAEAAEAAAADAAAEABAAAAADAAAEABEAAAADAAAEACAAAAADAAAEACEAAAADAAAEADAAAAADAAAEADEAAAADAABAAAAAAAADAABAAAEAAAADAABAABAAAAADAABAABEAAAADAABAACAAAAADAABAACEAAAADAABAADAAAAADAABAADEAAAADAABEAAAAAAADAABEAAEAAAADAABEABAAAAADAABEABEAAAADAABEACAAAAADAABEACEAAAADAABEADAAAAADAABEADEAAAADAACAAAAAAAADAACAAAEAAAADAACAABAAAAADAACAABEAAAADAACAACAAAAADAACAACEAAAADAACAADAAAAADAACAADEAAAADAACEAAAAAAADAACEAAEAAAADAACEABAAAAADAACEABEAAAADAACEACAAAAADAACEACEAAAADAACEADAAAAADAACEADEAAAADAADAAAAAAAADAADAAAEAAAADAADAABAAAAADAADAABEAAAADAADAACAAAAADAADAACEAAAADGADODDOOAAACEECEACEAAAACAACAACAAAAAAAAAAADOOAAAAAADOOAAAAAAAAADOODOOAAADOOAAAAAAAAADOOAAADOOAAADOODOOAAAAAADOODOODOOAAADOOAAAAAAAAADOOAAAAAAAAAAAADOODOODOOAAAAAAAAAAAADOODOOAGODOODOOAAAAAAAAADOODOODOODOODOOAAAAAAAAADOODFADOODFADOOAAAAAAAAA

    Картинка с расширением .bmp, написанная в машинных кодах на системе счисления wct. (программа - http://yadi.sk/d/i9Me1IQ7MbHCD wct editor). http://wctsite.tk.
    P.S. Если кто-то смог сохранить и посмотреть, что находится в картинке, то напишите в комментариях. Подсказка: первая буква - "с". Всего 7 букв :D

    Mobac, 19 Апреля 2014

    Комментарии (138)

  7. Куча / Говнокод #15764

    +127

    1. 1
    BFAAAACOAADODBFACACGOAAOCCBDBFADCCBAACODBFADCAOAACOBGEDOCCCGAACDACCCGCCBDEEBEAAOEBBFBGFAACBADBADBGOAACBBDBBDCGEABEDBFAEBCOAAABAAOCOCAEOADADBFACACBBAAECBBBCFBCBAOAAGOBGODBODAD

    Игра для ДОС в машинных кодах на системе счисления wct. (программа - http://yadi.sk/d/i9Me1IQ7MbHCD wct editor). http://wctsite.tk.

    Mobac, 16 Апреля 2014

    Комментарии (44)

  8. Куча / Говнокод #15752

    +128

    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
    (defun primes-under (limit &optional (filter-depth (truncate (log limit))))
  (labels ((%purge (prefix table depth)
             (iter
               (for (key value) :in-hashtable table)
               (for mul := (* key prefix))
               (while (< mul limit))
               (when (> depth 0) (%purge mul table (1- depth)))
               (remhash mul table))))
    (let ((primes (iter
                    (with p := (make-hash-table))
                    (for i :from 2 :below limit)
                    (setf (gethash i p) t)
                    (finally (return p)))))
      (iter
        (for (key value) :in-hashtable primes)
        (%purge key primes filter-depth)
        (finally
         (return
           (iter
             (for (key value) :in-hashtable primes)
             (reducing key :by #'+))))))))

    Вопрос к знатокам: почему так работает? (у меня чисто случайно получилось)
    Для тех, кому влом разбираться:
    Задача выше - код из Прожект Ойлер. Нужно найти сумму всех простых чисел меньше 2000000 (двух миллионов).
    Методом подбора было установлено, что если из всех чисел меньше N последовательно удалять их произведения N_0 * N_1 * ... * N_m, где m = floor(log(N)), то, по крайней мере на сколько меня хватило посчитать, не-простых чисел не остается.

    Вопрос, как связан log(N), и можно ли вообще надеятся на то, что это правило - универсально (например, что степени двойки никогда не будут меньше N).

    wvxvw, 14 Апреля 2014

    Комментарии (150)

  9. Куча / Говнокод #15738

    +125

    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
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    % -*- mode: Prolog -*-

:- module e9.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is cc_multi.

:- implementation.
:- import_module int, float, list, string, math.

:- func root(int) = int.
root(Number) = floor_to_int(sqrt(float(Number))).

:- func squares_under(int, int) = list(int).
squares_under(From, To) = Result:-
    (Square = From * From,
     (if Square =< To
     then Result = [Square | squares_under(From + 1, To)]
     else Result = [])).

:- pred list_to_disjunction(list(int)::in, int::out) is nondet.
list_to_disjunction([Head | Tail], Result):-
    (Result = Head; list_to_disjunction(Tail, Result)).

:- pred summands_of(list(int)::in, int::in, { int, int, int }::out) is cc_nondet.
summands_of(Squares, Sum, { A, B, C }):-
    list_to_disjunction(Squares, As),
    list_to_disjunction(Squares, Bs),
    list_to_disjunction(Squares, Cs),
    As < Bs, Bs < Cs,
    As + Bs = Cs,
    root(As) + root(Bs) + root(Cs) = Sum,
    A = As, B = Bs, C = Cs.

main(!IO):-
    Sum = 1000,
    Squares = squares_under(1, Sum * Sum),
    (if summands_of(Squares, Sum, { A, B, C })
    then io.format("Answer: A = %d, B = %d, C = %d\n", [i(A), i(B), i(C)], !IO)
    else io.format("No solutions\n", [], !IO)).

    Давно как-то мы не вспоминали Прожект Ойлер.
    Язык: Меркури,
    Эффективность решения: наверное, полный пиздец.

    Для тех, кому нечем заняться: http://joyreactor.com/post/954661

    wvxvw, 12 Апреля 2014

    Комментарии (6)

  10. Куча / Говнокод #15735

    +130

    1. 1
    <input id="resetbutton" class="btn btn-info" type="reset" value="Reset" name="reset"></input>

    Джун порадовал. Не хватает комментария "Шоб наверняка!"

    Keeper, 12 Апреля 2014

    Комментарии (3)