Thread RDW #6 - Rätsel der Woche 6 (21 answers)
Opened by Crian at 2004-08-13 15:11

Crian
 2004-08-14 05:50
#49256 #49256
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
So ... meine Lösung ist (bis auf die optionale Spielvariante) fertig. Hier sind zwei Aufgabendateien zum Testen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#
# Test 1
#

columns = 5
rows = 3

stone 1 = (0, 0), (0, 1)
stone 2 = (1, 0), (1, 1)
stone 3 = (1, 2), (0, 2)
stone 4 = (2, 2), (2, 1)

goal = 1, (2, 3), (2, 4)

# Koordinaten beginnen links unten mit 0,0
# Die erste Koordinate ist die Zeile, die
# zweite die Spalte.
#
# +---+---+---+---+---+
# 2 | 4 | 4 | 0 | 0 | 0 | ->
# +---+---+---+---+---+
# 1 | 2 | 2 | 3 | 0 | 0 |
# +---+---+---+---+---+
# 0 | 1 | 1 | 3 | 0 | 0 |
# +---+---+---+---+---+
# 0 1 2 3 4
#
# Eine minimale Loesung ist 4-l, 3-u, 1-r, 1-r, 1-r, 1-u, 1-u


und

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#
# Test 1
#

columns = 3
rows = 3

stone 1 = (2, 0)
stone 2 = (2, 2)
stone 3 = (1, 1)
stone 4 = (0, 0)

goal = 1, (0, 2)

# Koordinaten beginnen links unten mit 0,0
# Die erste Koordinate ist die Zeile, die
# zweite die Spalte.
#
# +---+---+---+ Der Stein "1" soll aus dem Feld unten
# 2 | 1 | 0 | 2 | rechts aus dem Spielfeld herausgescho-
# +---+---+---+ ben werden, d.h., dass er auf dem Feld
# 1 | 0 | 3 | 0 | unten rechts landen soll.
# +---+---+---+ Eine minimale Loesung ist:
# 0 | 4 | 0 | 0 | -> 3-l, 1-r, 1-u, 1-u, 1-r
# +---+---+---+ Dann steht der Stein vor dem Ausgang
# 0 1 2 und kann herausgezogen werden.


Weitere werden eventuell folgen. Ich werde diese Dateien auch gleich schonmal auf den Server hochladen und im Wiki verlinken, siehe http://wiki.perl-community.de/bin/view/Wissensbasis/RaetseL20040813

Edit: done, zu finden hier:

http://www.perl-community.de/rdw/rdw06/f1.field
http://www.perl-community.de/rdw/rdw06/f2.field\n\n

<!--EDIT|Crian|1092448496-->
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

View full thread RDW #6 - Rätsel der Woche 6