RDW #B - Raetsel der Woche Nummer B - #50277 (Allgemeines zu Perl)

Crian

2004-12-21 21:22

User since
2003-08-04
5866 Artikel
ModeratorIn

und dashier:

Code: (dl )

{
    my $u = new Rdw::BigInt "471187652";
    my $v = new Rdw::BigInt "471187651";
    my $w = new Rdw::BigInt "471187653";
    my $x = new Rdw::BigInt "471187652";

    print "$u ", ('<','=','>')[1+($u<=>$v)], " $v\n";
    print "$u ", ('<','=','>')[1+($u<=>$w)], " $w\n";
    print "$u ", ('<','=','>')[1+($u<=>$x)], " $x\n";
}

Ausgabe

Code: (dl )

1
2
3

471.187.652 > 471.187.651
471.187.652 < 471.187.653
471.187.652 = 471.187.652

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite