Куча говна / Говнокод #24742 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
onStart =: verb define
  wd 'pc game15; pn 15; bin hv; bin h'
  i =. 0
  for_text. ":@>:0,~?~15 do.
    name =. 'a', ":i
    wd 'cc ', name , ' button; cn ', text
    if. 3 = 4|i do.
      wd 'bin z; bin h'
    end.
    wd 'set ', name, ' wh 80 80'
    ". 'game15_', name, '_button =: <a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="97f5e2e3e3f8f9f4fbfef4fcf2f3d7">[email protected]</a>]&', (":i)
    i =. >:i
  end.
  wd 'set a15 text'
  wd 'cc count static; cn 0'
  count =: 0
  wd 'bin z'
  wd 'cc restart button; cn restart'
  wd 'pshow'
  empty =: 15
  0$0
)

buttonclicked =: verb define
  if. 1 = (+/)(**)(-/@:<<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="f3ddb3">[email protected]</a>:%&4 , -/@:|~&4) empty, y do.
    wd 'set a', (":empty), ' text ', wd 'get a', (":y), ' text'
    wd 'set a', (":y), ' text'
    empty =: y
    count =: >:count
    wd 'set count text ', ":count
  end.
)

game15_restart_button =: verb define
  wd 'pclose'
  wd 'activity base'
)

wd 'activity base'

Я осилил гуй в J! Урряяяя!

Запостил: MasterJoda MasterJoda, (Updated )

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

  • ava roman-kashitsyn # Ссылка на оригинал 0

    Почему «J» выглядит так убого даже на фоне «APL»?

    verb define … ) <- несбалансированные скобки? WUT?

    Толи дело «APL»:
    onStart←{
}
    А чего только стоит код, передаваемый в строках? J-инъекции в GUI?
    Ответить

    • ava MasterJoda # Ссылка на оригинал 0 ⇈

      > Почему «J» выглядит так убого даже на фоне «APL»?
      Сам APL крут, да, но покажи мне гуи в APL? Ты сможешь набрать APL программу на любом компуктере в любом редакторе? В APL есть тацитное программирование? И можно ли в нём юзать императивные упровляющия конструкции? В APL завездли ООП? (Я просто не знаю:)

      > несбалансированные скобки
      Почему это?
      NB. Вот начало определения:
noun define
а строка ")" это его конец.
)

noun def 'Всё сбалансировано ;)'


      > код, передаваемый в строках
      Мне лень было писать game15_a0_button =: verb def 'buttonclicked 0' и т.д., вот я и нагенерил 😉

      > J-инъекции в GUI?
      От юзера ничего не евалится 😉
      Али ты про wd вообще? Так там не сам J, а кокая-то НЁХ (я не знаю что 🙂
      Ответить

      • ava roman-kashitsyn # Ссылка на оригинал 0 ⇈

        > В APL есть тацитное программирование?

        В стандарте вроде нету, но стандарт APL это ещё хуже, чем стандарт хачкеля: по факту есть один коммерческий интерпретатор (Dyalog APL, http://help.dyalog.com/13.0/index.html), в котором добавлена туева хуча ништяков и интеграций. В нём есть

        • function trains для тацитного программирования
        • няшный синтаксис для лямбд и операторов
        • синтаксис императивных конструкций :If / :Else / :While вот это всё. В оригинальном APL был только goto(→)
        • ООП, гуй, интеграция с .Net, Java, Excel, OLE, Ado.NET, etc
        Ответить

        • ava guest # 0 ⇈

          Тест:⍋⌽⍉⊖⍟⍱⋄¨¯<≤=≥>≠∨∧×÷∊⍴~↑↓⍳○*←→⍺⌈⌊_∇∆∘'⎕⍎⍕⊂⊥⊤|⍝⍀⌿.
          Ответить

          • ava guest # 0 ⇈

            Прикольно. Они даже раскладку прикрутили.
            Ответить

            • ava guest # 0 ⇈

              ⍷⍨⍸⍥⍣⍞⍬⊣⍤⌸⌷≡≢⊂⊃∩∪⍪⍙⍠
              Ответить

        • ava MasterJoda # Ссылка на оригинал 0 ⇈

          > лямбд
          J язык кобенаторный, в нём лямды нинужны (-*+) и ононимная функция готова. Но хотя можно и так:
          echo dyad define /i._5 NB. само определение идёт дальше (странновато, не находите? ;)
  (*:x) - *:y
)

echo dyad def '(*:x) - *:y'/i._5

NB. лол:
echo dyad define / verb define _5
  i.y
)
  (*:x) - *:y
)

1!:2&2 'Спасибо, я кончел.'
          Ответить

  • ava guest # 0

    Иньо, проснись! У тебя в хузе [email protected] при отображении говнокода на J.
    Ответить

  • ava guest # 0

    Ебать лол, <a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="65071011110a0b06090c060e000125">[email protected]</a>
    Ответить

    • ava guest # 0 ⇈

      0x65 xor 0x07 = 0x62 = 'b'
      0x65 xor 0x10 = 0x75= 'u'
      0x65 xor 0x11 = 0x74 = 't'
      0x65 xor 0x11 = 0x74 = 't'
      Ну и так далее. Короче, там что-то про "butt".
      Ответить

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

Помни, guest, за тобой могут следить!

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

    ↑
    8
    ↓