RDW #3 - Rätsel der Woche Nr. 3 (Seite 7) (Allgemeines zu Perl)

Crian

2004-07-27 11:35

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Ishka,26.07.2004, 18:30]Jo, das mit den Fragezeichen bei meiner Lösung kommt daher, daß ich die Lösung abgeschickt hab, bevor gesagt wurde, was man mit den 'anderen' Zeichen machen soll ;)[/quote]
Das war aber aus der Beispielausgabe zu erkennen ;) :

[quote=Crian,23.07.2004, 11:33]

Code: (dl )

0210: 6e 75 6c 6c 61 20 66 61 - 63 69 6c 69 73 69 2e 0a    nulla facilisi..

[/quote]

[quote=coax,26.07.2004, 21:23]Den Code zu meiner Loesung wird Crian sicherlich spaeter erst ins Wiki packen koennen, weil meine Mail eben erst rausging.[/quote]
Gut dass Du es gesagt hast, Deine Mail ist im Spammverdacht gelandet, was treibt ihr blos alle? :D

Ich werd sie da gleich mal rausfischen und dann ins Wiki einstellen, als Datei geht es erst später.

Edit: Coax Lösung ist jetzt auch mit im >>> Wiki <<<, die Besprechung folgt später.\n\n

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

coax

2004-07-27 15:28

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

[quote=ptk,26.07.2004, 21:45]Mit grosser Wahrscheinlichkeit behebt

Code: (dl )

unset LANG

bzw. das Einfuegen von

Code: (dl )

binmode STDIN;

im Code das Problem und du hast RedHat 8.0 und perl-5.8.0. Liege ich richtig? :-)[/quote]
fast richtig *g*, da laeuft RH9 und Perl 5.8.0.

binmode auf STDIN ist gesetzt und unset hat den gewuenschten Erfolg gebracht, danke :)

[quote=Crian,27.07.2004, 09:35]Gut dass Du es gesagt hast, Deine Mail ist im Spammverdacht gelandet, was treibt ihr blos alle? :D[/quote]
Schau doch mal nach welchen Kriterien die Mails herausgefiltert wurden.\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

Ishka

2004-07-27 15:36

User since
2003-08-04
771 Artikel
HausmeisterIn

[quote=Crian,27.07.2004, 09:35][...]
Das war aber aus der Beispielausgabe zu erkennen ;) :

[quote=Crian,23.07.2004, 11:33]

Code: (dl )

0210: 6e 75 6c 6c 61 20 66 61 - 63 69 6c 69 73 69 2e 0a    nulla facilisi..

[/quote]

[...][/quote]
^_^

Jaja, ich weiß - einzelne Zeichen können dir dein ganzes Programm zerhauen, also achte auf sie.. ;)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2004-07-28 19:20

User since
2003-08-04
5873 Artikel
ModeratorIn

Ankündigung:

RDW #4 kommt erst Freutag spät Abends oder im Laufe des Samstags.

Wir haben nämlich Morgen und Übermorgen Betriebsausflug und vorher komme ich nicht mehr dazu.

Da wir Freitag schätzungsweise zwschen 18 und 19 Uhr wieder da sein werden, hängt es von meinem Erschöpfungsgrad (Paddeltour) ab, ob ich mich Abends noch zum Rätsel aufraffen kann. Die Prognose lautet deshalb: Wahrscheinlich erst Samstag Abend.

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

Ishka

2004-07-28 19:45

User since
2003-08-04
771 Artikel
HausmeisterIn

machs doch einfach jetzt schonmal, so daß dus nur reinkopieren mußt. Oder schick es jemandem per pm (der dann bitte so fair ist und nicht vorher anfängt), der es dann ins Forum stellt.

Und wenn nicht - auch egal - viel Spaß beim paddeln :)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

sri

2004-07-29 16:41

User since
2004-01-29
828 Artikel
BenutzerIn

Hier mal ein kleines Rätsel für zwischendurch.
Für die die es noch nicht kennen. (Is nich von mir,ich hab es nur geklaut) ;)

Code: (dl )

1
2

<XXX>;
undef and print 'ok';

Was muss da anstelle von <XXX> stehen damit das print ok ausgibt?\n\n

http://mojolicio.us/

pq

2004-07-29 17:04

User since
2003-08-04
12209 Artikel
Admin1

achtung spoiler:
.
.
.
.
.
.
.
.
.
.
.
.
anstelle von <XXX> gehört 'qq f'
(ohne anführungszeichen)

(ich weiss, woher das rätsel stammt, aber ich habe mir die lösungen nicht
angeschaut, ehrlich =)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

ptk

2004-07-29 17:08

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Wie waer's mit

Code: (dl )

1
2

"f;
undef" =~ m f

?

sri

2004-07-29 17:13

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=pq,29.07.2004, 15:04]
anstelle von <XXX> gehört 'qq f'
(ohne anführungszeichen)
[/quote]
Also bitte...das is cheaten! ;)

Natürlich zählt quoten nicht! *tststs*

http://mojolicio.us/

sri

2004-07-29 23:52

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=sri,29.07.2004, 14:41]

Code: (dl )

1
2

<XXX>;
undef and print 'ok';

Was muss da anstelle von <XXX> stehen damit das print ok ausgibt?[/quote]
Naja, ich werds mal auflösen...

Code: (dl )

1
2

&Internals::SvREADONLY(\undef, 0); undef = 1;
undef and print "OK";

Das wäre die original Lösung.
Zur Erklärung, veränderbare Konstanten sind ein neues Feature von Perl 5.8\n\n

http://mojolicio.us/