in reply to Re^2: 2014 Code Golf Challenge
in thread 2014 Code Golf Challenge

I've not been able to make that work in any character set supported by any of my text editors

My console defaults to code page 850 (see the pic.)

What I did was print:
[0] Perl> print ~'2014';;
═¤╬╦

And then c&p the output back inside the string:
[0] Perl> print ~'═¤╬╦';;
2014

Presumably if you do the same thing on your local console you should be able to get the same effect although the displayed glyphs will be different. (Though I guess it won't work for Unicrap consoles :)

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^4: 2014 Code Golf Challenge
by tobyink (Canon) on Jan 01, 2014 at 14:46 UTC

    According to the StackExchange golfing rule book, you're allowed to assume perl is being run as perl -M5.010, so can use say. This takes the solution down to 10 bytes, beating even many of the esolangs, while still being pretty obvious how it works.

    use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name
[reply]
[d/l]
[select]
Re^4: 2014 Code Golf Challenge
by educated_foo (Vicar) on Jan 01, 2014 at 17:12 UTC
    That's pretty much optimal, since Perl bitches about putting those things directly in your source, so you can't get rid of the quotes. What are you using as a REPL here?
[reply]
      What are you using as a REPL here?

      An evolution of the 15 line script I wrote 10 years ago: 

      #! perl -slw
use 5.010;
use feature qw[ say state ];
use threads;
use threads::shared;
#use strict;
#use Win32::API::Prototype;
use Time::HiRes qw[ time sleep ];
use Benchmark qw[cmpthese];
use Data::Dump qw[ pp ]; ##$Data::Dump::MAX_WIDTH = 200;
#use Data::Dumper;
use Devel::Size qw[ size total_size];
use List::Util qw[ sum reduce max min maxstr minstr shuffle ];

$| = 1;
$" = $, = ' ';#"

while( 1 ) {
    $_code = '';
    printf "[%s] Perl> ", $! || $@ || $? || 0;
    $_code .= <STDIN> until $_code =~ m[;;\s*$];
    chomp $_code;
    system 1, 'cmd /k' and next if $_code =~ m[^!!;;\s*$]s;
    if( $_code =~ m[^!(.+);;\s*$]s ) {
        system "cmd.exe /c $1";
        $! = ($? << 8);
        next;
    }
    last if $_code =~ m[^(quit|exit|q);;\s*$];
    $! = 0;
    eval {
        local $ENV{ PERL_SIGNALS } = 'unsafe';
        local $SIG{ INT } = sub{die;};
        eval $_code
    };
}

      [download]

      It's pretty eclectic and in a constant state of flux; but it is by far the most used program on my system except possible my editor and browser both of which run constantly.

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

In Section Obfuscated Code