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

    0

    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
    <?php
class std {
    public static function cout() {
        return new std();
    }
    public function endl() {
        echo PHP_EOL;
    }
    public function __get($name) {
        echo $name;
        return $this;
    }
}

std::cout()->{'Кукареку!'}->endl();

    Кукареку!

    https://ideone.com/g95mdk

    Запостил: nemyx, 12 Декабря 2018

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

    • ava nemyx 12.12.2018 12:59 # −1

      SEO-пост: STL, переведи на "PHP".
      Ответить

    • ava bormand 12.12.2018 13:00 # +1

      А оператор << можно перегрузить?
      Ответить

      • ava nemyx 12.12.2018 13:19 # +1

        Можно, но только с расширением operator:
        http://pecl.php.net/package/operator

        <?php
class std {
    const endl = PHP_EOL;
    public static function cout() {
        return new std();
    }
    public function __sl($val) {
        echo $val;
        return $this;
    }
}

std::cout() << 'Кукареку!' << std::endl;


        К сожалению, его нет в Ideone.
        Ответить

        • ava Elvenfighter 13.12.2018 14:25 # 0

          > А оператор << можно перегрузить?

          Use Perl*, Luke:
          #!/usr/bin/perl

use strict;
use warnings;
no warnings qw(void);

package std::__cout;

use overload '<<' => \&__print_shl;

sub __print_shl {
  my ($self, @strings) = @_;
  print @strings;
  return $self;
}

package std;

sub cout {
  return bless {} => 'std::__cout';
}

sub endl {
  return "\n";
}

package main;

std::cout() << "Hello, Perl" << std::endl;


          https://wandbox.org/permlink/CWq65ohMlYE1ioYR

          * Правда heredoc-syntax не позволяет пропустить скобочки после std::cout.
          Ответить

          • ava Elvenfighter 13.12.2018 14:42 # 0

            Точно, есть же прототипы
            #!/usr/bin/perl

use strict;
use warnings;
no warnings qw(void);

package std;

use overload '<<' => \&__print_shl;

sub __print_shl {
  my ($self, @strings) = @_;
  print {$self->{_handle}} @strings;
  return $self;
}

sub cout() {
  return bless { _handle => \*STDOUT } => __PACKAGE__;
}

sub cerr() {
  return bless { _handle => \*STDERR } => __PACKAGE__;
}

sub endl() {
  return "\n";
}

package main;

std::cout << "Hello, Perl!" << std::endl;

            https://wandbox.org/permlink/j6nG2fmRwb3V3xgr
            Ответить

    • ava 666_N33D135 12.12.2018 15:58 # 0 

      0 VALUE (})

: }  (}) EXECUTE ;

: (end-namespace)  PREVIOUS DEFINITIONS ;

: namespace
   WORDLIST CREATE DUP ,
   >R GET-ORDER R> SWAP 1+ SET-ORDER DEFINITIONS
   BL WORD COUNT 1 <> SWAP C@ [CHAR] { <> OR ABORT" syntax error"
   ['] (end-namespace) TO (})

   DOES> @ ' EXECUTE
;

: ::
   >R GET-ORDER R> 1 SET-ORDER
   ' >R SET-ORDER R> EXECUTE
;

: >SHL ;

: <<  >R ' EXECUTE R@ >SHL @ EXECUTE R> ;

: S'  [CHAR] ' PARSE >R HERE R@ CMOVE  HERE R> ;

namespace std {
    CREATE cout ' TYPE ,
    CREATE (endl) 10 C,
    : endl  (endl) 1 ;
}

std :: cout << S' Именно поэтому я за "Forth"' << std :: endl
      https://ideone.com/XKTbZ7
      Ответить

      • ava 1024-- 12.12.2018 20:45 # 0

        Какой язык высококобенной!

        > GET-ORDER R> SWAP 1+ SET-ORDER DEFINITIONS
        > CREATE (endl) 10 C
        ЗОЖИМАЕМ> ВОРЕЦИИ 1+ ЛЕСНЫЕ КОБЕНАЦИИ
        ПОЛУЧАЕМ (вдруг) 10 БАТ
        Ответить

      • ava Rooster 26.02.2019 14:50 # 0

        Ко-ко-ко, зачем так сложно?
        : std::cout<<"Кукурику!"<<std::endl;    ." Кукурику!" cr ;
        Ответить

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