1. PHP / Говнокод #25126

    −3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    начало пхп прог уннамед
    
    подключить "пхп модуль 1.0"
    
    доллар целое а = 4
    доллар целое б = 2
    
    печать сум доллар а + доллар б 2
    
    помолиться perl
    
    конец пхп прог уннамед

    Запостил: Ksyrx, 28 Ноября 2018

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

    • После какой строчки смеяться?
      Ответить
    • Что за язык?
      Ответить
      • Великий и могучий
        WORDLIST CONSTANT пхп
        
        : начало  GET-ORDER ' EXECUTE SWAP 1+ SET-ORDER ;
        
        пхп SET-CURRENT
        
        : прог  BL WORD DROP ;
        : подключить  [CHAR] " WORD COUNT INCLUDED ;
        : доллар  ' EXECUTE ;
        : =  INTERPRET DEPTH 2 ?DO DROP LOOP SWAP ! ;
        : целое
           CREATE HERE 1 CELLS ALLOT
           BL WORD FIND IF
              [ начало пхп ] ['] = DUP [ PREVIOUS ] = IF EXECUTE ELSE DROP THEN
           ELSE 2DROP THEN
        ;
        : сум  INTERPRET DEPTH 1 ?DO + LOOP ;
        : печать   INTERPRET . ;
        : +  @ ' EXECUTE @ + ;
        : помолиться ' EXECUTE TYPE ;
        : perl  S" <здесь молитва perl>" ;
        : конец  BYE ;
        Ответить
      • пхп не видно б**** что ли
        Ответить

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