Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Sudoku

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 08.04.2006 - 21:24    Titel: Sudoku Antworten mit Zitat

hi leute,
erstmal vorweg ich dachte mal das passt hier als kleine knobelei mit
rein und nicht ins AS-X Thread!

jeder von euch kennt ja sudoku das mathematisch basierte spiel das mom voll in ist!

wer nicht oder die regel nicht kann der hört jetzt am besten auf!

ich will einen "algorythmus" entwickeln der ein sudoku automatisch löst gnial was!

mathemathisch sehr anspruchsvoll wie ich finde! naja

ich bitte um rege anteilnahme

hier mal ein anfang!

Zitat:

--FELDBESTIMMUNG
-- mit werten aus http://sudoku.zeit.de/sudoku/kunden/die_zeit/
-- 1. senkrecht
set a1 to ""
set a2 to ""
set a3 to 5
set a4 to 9
set a5 to ""
set a6 to 7
set a7 to ""
set a8 to ""
set a9 to ""

-- 2.senkrecht
set b1 to 8
set b2 to 4
set b3 to ""
set b4 to ""
set b5 to 3
set b6 to 2
set b7 to ""
set b8 to ""
set b9 to ""

-- 3. senkrecht
set c1 to ""
set c2 to ""
set c3 to ""
set c4 to ""
set c5 to ""
set c6 to ""
set c7 to 2
set c8 to 8
set c9 to 6

-- 4. senkrecht
set d1 to ""
set d2 to ""
set d3 to 4
set d4 to 2
set d5 to 6
set d6 to 5
set d7 to 7
set d8 to ""
set d9 to 1

-- 5.senkrecht
set e1 to 6
set e2 to ""
set e3 to ""
set e4 to 3
set e5 to ""
set e6 to ""
set e7 to 4
set e8 to 2
set e9 to ""

--6. senkrecht
set f1 to 1
set f2 to 7
set f3 to ""
set f4 to ""
set f5 to ""
set f6 to ""
set f7 to ""
set f8 to ""
set f9 to 5

-- 7.senkrecht
set g1 to ""
set g2 to ""
set g3 to 7
set g4 to ""
set g5 to ""
set g6 to ""
set g7 to ""
set g8 to 6
set g9 to ""

-- 8. senkrecht
set h1 to 5
set h2 to ""
set h3 to ""
set h4 to 7
set h5 to ""
set h6 to ""
set h7 to 9
set h8 to 4
set h9 to ""

--9. senkrecht
set i1 to ""
set i2 to ""
set i3 to ""
set i4 to 4
set i5 to 1
set i6 to ""
set i7 to 8
set i8 to ""
set i9 to ""







--VORGABE für jede liste(in jeder liste müssen die zahlen vorkammmen (nich doppelt))
set masterlist to {1, 2, 3, 4, 5, 6, 7, 8, 9}

-- blöcke
-- oberen 3
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
-- mittleren 3
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
-- untere 3
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

-- vertikalen (links nach rechts)
set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}
set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}
set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}
set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}
set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}
set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}
set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}
set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}
set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}

--waagrechten
set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}
set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}
set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}
set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}
set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}
set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}
set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}
set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}
set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}

-- jetzt brauch ich hilfe beim algorythmus
-- Bedingung: alle listen müssen dem inhalt der masterlist entsprechen (reihenfolge egal!)

-- viel erfolg ... till (ich mach natürlich auch mit)








_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 13.04.2006 - 13:57    Titel: Antworten mit Zitat

mathematisch ist hier wohl keiner begabt!!!

wer ist eigentlich dafür dass man mal die mac life oder mac welt anschreibt dass die mal wieder artikel über AS bringen und nich nur diese automator scheiße
_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ShooTerKo
•--->
•--->


Anmeldedatum: 21.03.2006
Beiträge: 221
Wohnort: Hamburg

BeitragVerfasst am: 13.04.2006 - 14:39    Titel: Antworten mit Zitat

Haben die schon einmal etwas Neues über AS geschrieben, was man nicht auch woanders hätte lesen können?

Zum Thema Sudoku:
Es gibt im Netz einige Brute Force-Methoden, die einfach rekursiv alles ausprobieren, bis das Sudoku fertig ist, z.B. http://www.jaegers.net/Sudoku_Loesung.sudokuloesen+M5d637b1e38d.0.html oder http://sudoku.sourceforge.net.

Sudokus sind kein mathematisches Problem Cool , sondern rein logisch. Du kannst statt der Symbole 1-9 ja auch Sterne, Kreise und Quadrate nehmen oder einfach neun Farbwerte. (Was es merkwürdigerweise tatsächlich schwerer macht Embarassed )

CU
ShooTerKo
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 13.04.2006 - 15:40    Titel: Antworten mit Zitat

jaja aber für jede farbe kann ich eine variable nehmen!
und eigentlich (nid nur eigentlich) ist es ein mathematisch zu lösendes
"problem" . denn ich kann es "einfach" unter beachtung mehrer funktionen lösen!!!
_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 13.04.2006 - 15:44    Titel: Antworten mit Zitat

die links sind ja nicht gerade hilfreich *g*
da steht nix drinne was man nicht schon wussste:

das ganze jetzt in AS umsetzen bitte:
_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ShooTerKo
•--->
•--->


Anmeldedatum: 21.03.2006
Beiträge: 221
Wohnort: Hamburg

BeitragVerfasst am: 13.04.2006 - 16:43    Titel: Antworten mit Zitat

Very Happy
Ja, das ist ja das Problem…
Zitat:
Wenn ein Mann Hunger hat, so schenke ihm keinen Fisch, sondern zeige ihm, wie man angelt
Laughing

Obwohl ich denke, dass es eher ein Zeitproblem ist…

Vielleicht über Ostern Rolling Eyes , aber kann nichts versprechen.

Frohe Ostern,
ShooTerKo
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
loser1000
•-->
•-->


Anmeldedatum: 25.10.2005
Beiträge: 44

BeitragVerfasst am: 14.04.2006 - 12:24    Titel: Antworten mit Zitat

wie rechnet bzw. arbeitet man den mit Listen?
_________________
mfg
loser1000
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 21.04.2006 - 06:11    Titel: Antworten mit Zitat

ICH BIN DE BADMAN
--mir scheißegal ob schönheitsfehler drinne sind es ist 6 uhr un ich hab die nacht durchgeschafft un es funzt
code formatter dauert mir jetzt auch zu lang


Zitat:



set a1 to ""
set a2 to ""
set a3 to 5
set a4 to 9
set a5 to ""
set a6 to 7
set a7 to ""
set a8 to ""
set a9 to ""

-- 2.senkrecht
set b1 to 8
set b2 to 4
set b3 to ""
set b4 to ""
set b5 to 3
set b6 to 2
set b7 to ""
set b8 to ""
set b9 to ""

-- 3. senkrecht
set c1 to ""
set c2 to ""
set c3 to ""
set c4 to ""
set c5 to ""
set c6 to ""
set c7 to 2
set c8 to 8
set c9 to 6

-- 4. senkrecht
set d1 to ""
set d2 to ""
set d3 to 4
set d4 to 2
set d5 to 6
set d6 to 5
set d7 to 7
set d8 to ""
set d9 to 1

-- 5.senkrecht
set e1 to 6
set e2 to ""
set e3 to ""
set e4 to 3
set e5 to ""
set e6 to ""
set e7 to 4
set e8 to 2
set e9 to ""

--6. senkrecht
set f1 to 1
set f2 to 7
set f3 to ""
set f4 to ""
set f5 to ""
set f6 to ""
set f7 to ""
set f8 to ""
set f9 to 5

-- 7.senkrecht
set g1 to ""
set g2 to ""
set g3 to 7
set g4 to ""
set g5 to ""
set g6 to ""
set g7 to ""
set g8 to 6
set g9 to ""

-- 8. senkrecht
set h1 to 5
set h2 to ""
set h3 to ""
set h4 to 7
set h5 to ""
set h6 to ""
set h7 to 9
set h8 to 4
set h9 to ""

--9. senkrecht
set i1 to ""
set i2 to ""
set i3 to ""
set i4 to 4
set i5 to 1
set i6 to ""
set i7 to 8
set i8 to ""
set i9 to ""


set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}

set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9}
display alert "Sdoku 0.1" message (waags as text) & return & return & "(c)2006 by Till s. " & return & "join: www.fischer-bayern.de"


--VORGABE für jede liste(in jeder liste müssen die zahlen vorkammmen (nich doppelt))
set masterlist to {1, 2, 3, 4, 5, 6, 7, 8, 9}



--====================================================
--Blocks ohne hndler
--==================================== oben
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set vorh to every integer of obenli
set infrage to {}

repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a1 is "" then
set a1 to infrage
end if
if a2 is "" then
set a2 to infrage
end if
if a3 is "" then
set a3 to infrage
end if
if b1 is "" then
set b1 to infrage
end if
if b2 is "" then
set b2 to infrage
end if
if b3 is "" then
set b3 to infrage
end if
if c1 is "" then
set c1 to infrage
end if
if c2 is "" then
set c2 to infrage
end if
if c3 is "" then
set c3 to infrage
end if
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set vorh to every integer of obenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d1 is "" then
set d1 to infrage
end if
if d2 is "" then
set d2 to infrage
end if
if d3 is "" then
set d3 to infrage
end if
if e1 is "" then
set e1 to infrage
end if
if e2 is "" then
set e2 to infrage
end if
if e3 is "" then
set e3 to infrage
end if
if f1 is "" then
set f1 to infrage
end if
if f2 is "" then
set f2 to infrage
end if
if f3 is "" then
set f3 to infrage
end if
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set vorh to every integer of obenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g1 is "" then
set g1 to infrage
end if
if g2 is "" then
set g2 to infrage
end if
if g3 is "" then
set g3 to infrage
end if
if h1 is "" then
set h1 to infrage
end if
if h2 is "" then
set h2 to infrage
end if
if h3 is "" then
set h3 to infrage
end if
if i1 is "" then
set i1 to infrage
end if
if i2 is "" then
set i2 to infrage
end if
if i3 is "" then
set i3 to infrage
end if
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set vorh to every integer of mili
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a4 is "" then
set a4 to infrage
end if
if a5 is "" then
set a5 to infrage
end if
if a6 is "" then
set a6 to infrage
end if
if b4 is "" then
set b4 to infrage
end if
if b5 is "" then
set b5 to infrage
end if
if b6 is "" then
set b6 to infrage
end if
if c4 is "" then
set c4 to infrage
end if
if c5 is "" then
set c5 to infrage
end if
if c6 is "" then
set c6 to infrage
end if
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set vorh to every integer of mimi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d4 is "" then
set d4 to infrage
end if
if d5 is "" then
set d5 to infrage
end if
if d6 is "" then
set d6 to infrage
end if
if e4 is "" then
set e4 to infrage
end if
if e5 is "" then
set e5 to infrage
end if
if e6 is "" then
set e6 to infrage
end if
if f4 is "" then
set f4 to infrage
end if
if f5 is "" then
set f5 to infrage
end if
if f6 is "" then
set f6 to infrage
end if
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set vorh to every integer of mire
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g4 is "" then
set g4 to infrage
end if
if g5 is "" then
set g5 to infrage
end if
if g6 is "" then
set g6 to infrage
end if
if h4 is "" then
set h4 to infrage
end if
if h5 is "" then
set h5 to infrage
end if
if h6 is "" then
set h6 to infrage
end if
if i4 is "" then
set i4 to infrage
end if
if i5 is "" then
set i5 to infrage
end if
if i6 is "" then
set i6 to infrage
end if
set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set vorh to every integer of untenli
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a7 is "" then
set a7 to infrage
end if
if a8 is "" then
set a8 to infrage
end if
if a9 is "" then
set a9 to infrage
end if
if b7 is "" then
set b7 to infrage
end if
if b8 is "" then
set b8 to infrage
end if
if b9 is "" then
set b9 to infrage
end if
if c7 is "" then
set c7 to infrage
end if
if c8 is "" then
set c8 to infrage
end if
if c9 is "" then
set c9 to infrage
end if
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set vorh to every integer of untenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d7 is "" then
set d7 to infrage
end if
if d8 is "" then
set d8 to infrage
end if
if d9 is "" then
set d9 to infrage
end if
if e7 is "" then
set e7 to infrage
end if
if e8 is "" then
set e8 to infrage
end if
if e9 is "" then
set e9 to infrage
end if
if f7 is "" then
set f7 to infrage
end if
if f8 is "" then
set f8 to infrage
end if
if f9 is "" then
set f9 to infrage
end if
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set vorh to every integer of untenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g7 is "" then
set g7 to infrage
end if
if g8 is "" then
set g8 to infrage
end if
if g9 is "" then
set g9 to infrage
end if
if h7 is "" then
set h7 to infrage
end if
if h8 is "" then
set h8 to infrage
end if
if h9 is "" then
set h9 to infrage
end if
if i7 is "" then
set i7 to infrage
end if
if i8 is "" then
set i8 to infrage
end if
if i9 is "" then
set i9 to infrage
end if
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

set blocke to {obenli, return, obenmi, return, obenre, return, mili, return, mimi, return, mire, return, untenli, return, untenmi, return, untenre}
get blocke

--===========================
--BLOCKE -ende
--===================================================




repeat 10 times

set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set eineverte to obenli
global einenverte


set a1 to block(a1, eineverte)
set a2 to block(a2, eineverte)
set a3 to block(a3, eineverte)
set b1 to block(b1, eineverte)
set b2 to block(b2, eineverte)
set b3 to block(b3, eineverte)
set c1 to block(c1, eineverte)
set c2 to block(c2, eineverte)
set c3 to block(c3, eineverte)
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set eineverte to obenmi
global einenverte


set d1 to block(d1, eineverte)
set d2 to block(d2, eineverte)
set d3 to block(d3, eineverte)
set e1 to block(e1, eineverte)
set e2 to block(e2, eineverte)
set e3 to block(e3, eineverte)
set f1 to block(f1, eineverte)
set f2 to block(f2, eineverte)
set f3 to block(f3, eineverte)
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set eineverte to obenre
global einenverte


set g1 to block(g1, eineverte)
set g2 to block(g2, eineverte)
set g3 to block(g3, eineverte)
set h1 to block(h1, eineverte)
set h2 to block(h2, eineverte)
set h3 to block(h3, eineverte)
set i1 to block(i1, eineverte)
set i2 to block(i2, eineverte)
set i3 to block(i3, eineverte)
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set eineverte to mili
global einenverte


set a4 to block(a4, eineverte)
set a5 to block(a5, eineverte)
set a6 to block(a6, eineverte)
set b4 to block(b4, eineverte)
set b5 to block(b5, eineverte)
set b6 to block(b6, eineverte)
set c4 to block(c4, eineverte)
set c5 to block(c5, eineverte)
set c6 to block(c6, eineverte)
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set eineverte to mimi
global einenverte


set d4 to block(d4, eineverte)
set d5 to block(d5, eineverte)
set d6 to block(d6, eineverte)
set e4 to block(e4, eineverte)
set e5 to block(e5, eineverte)
set e6 to block(e6, eineverte)
set f4 to block(f4, eineverte)
set f5 to block(f5, eineverte)
set f6 to block(f6, eineverte)
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set eineverte to mire
global einenverte


set g4 to block(g4, eineverte)
set g5 to block(g5, eineverte)
set g6 to block(g6, eineverte)
set h4 to block(h4, eineverte)
set h5 to block(h5, eineverte)
set h6 to block(h6, eineverte)
set i4 to block(i4, eineverte)
set i5 to block(i5, eineverte)
set i6 to block(i6, eineverte)

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set eineverte to untenli
global einenverte

set a7 to block(a7, eineverte)
set a8 to block(a8, eineverte)
set a9 to block(a9, eineverte)
set b7 to block(b7, eineverte)
set b8 to block(b8, eineverte)
set b9 to block(b9, eineverte)
set c7 to block(c7, eineverte)
set c8 to block(c8, eineverte)
set c9 to block(c9, eineverte)
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set eineverte to untenmi
global einenverte

set d7 to block(d7, eineverte)
set d8 to block(d8, eineverte)
set d9 to block(d9, eineverte)
set e7 to block(e7, eineverte)
set e8 to block(e8, eineverte)
set e9 to block(e9, eineverte)
set f7 to block(f7, eineverte)
set f8 to block(f8, eineverte)
set f9 to block(f9, eineverte)
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set eineverte to untenre
global einenverte

set g7 to block(g7, eineverte)
set g8 to block(g8, eineverte)
set g9 to block(g9, eineverte)
set h7 to block(h7, eineverte)
set h8 to block(h8, eineverte)
set h9 to block(h9, eineverte)
set i7 to block(i7, eineverte)
set i8 to block(i8, eineverte)
set i9 to block(i9, eineverte)
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

--====================================
--end eblocke
--============================================================

--===================================================
--VERTIKALE
--====================================== -> links 1.

set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}
set einevert to a
global einevert

set a1 to vert(a1, einevert)
set a2 to vert(a2, einevert)
set a3 to vert(a3, einevert)
set a4 to vert(a4, einevert)
set a5 to vert(a5, einevert)
set a6 to vert(a6, einevert)
set a7 to vert(a7, einevert)
set a8 to vert(a8, einevert)
set a9 to vert(a9, einevert)
set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}

set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}
set einevert to b
global einevert

set b1 to vert(b1, einevert)
set b2 to vert(b2, einevert)
set b3 to vert(b3, einevert)
set b4 to vert(b4, einevert)
set b5 to vert(b5, einevert)
set b6 to vert(b6, einevert)
set b7 to vert(b7, einevert)
set b8 to vert(b8, einevert)
set b9 to vert(b9, einevert)
set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}

set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}
set einevert to c
global einevert

set c1 to vert(c1, einevert)
set c2 to vert(c2, einevert)
set c3 to vert(c3, einevert)
set c4 to vert(c4, einevert)
set c5 to vert(c5, einevert)
set c6 to vert(c6, einevert)
set c7 to vert(c7, einevert)
set c8 to vert(c8, einevert)
set c9 to vert(c9, einevert)
set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}

set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}
set einevert to d
global einevert

set d1 to vert(d1, einevert)
set d2 to vert(d2, einevert)
set d3 to vert(d3, einevert)
set d4 to vert(d4, einevert)
set d5 to vert(d5, einevert)
set d6 to vert(d6, einevert)
set d7 to vert(d7, einevert)
set d8 to vert(d8, einevert)
set d9 to vert(d9, einevert)
set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}

set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}
set einevert to e
global einevert

set e1 to vert(e1, einevert)
set e2 to vert(e2, einevert)
set e3 to vert(e3, einevert)
set e4 to vert(e4, einevert)
set e5 to vert(e5, einevert)
set e6 to vert(e6, einevert)
set e7 to vert(e7, einevert)
set e8 to vert(e8, einevert)
set e9 to vert(e9, einevert)
set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}

set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}
set einevert to f
global einevert

set f1 to vert(f1, einevert)
set f2 to vert(f2, einevert)
set f3 to vert(f3, einevert)
set f4 to vert(f4, einevert)
set f5 to vert(f5, einevert)
set f6 to vert(f6, einevert)
set f7 to vert(f7, einevert)
set f8 to vert(f8, einevert)
set f9 to vert(f9, einevert)
set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}

set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}
set einevert to g
global einevert

set g1 to vert(g1, einevert)
set g2 to vert(g2, einevert)
set g3 to vert(g3, einevert)
set g4 to vert(g4, einevert)
set g5 to vert(g5, einevert)
set g6 to vert(g6, einevert)
set g7 to vert(g7, einevert)
set g8 to vert(g8, einevert)
set g9 to vert(g9, einevert)
set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}

set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}
set einevert to h
global einevert

set h1 to vert(h1, einevert)
set h2 to vert(h2, einevert)
set h3 to vert(h3, einevert)
set h4 to vert(h4, einevert)
set h5 to vert(h5, einevert)
set h6 to vert(h6, einevert)
set h7 to vert(h7, einevert)
set h8 to vert(h8, einevert)
set h9 to vert(h9, einevert)
set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}

set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}
set einevert to i
global einevert

set i1 to vert(i1, einevert)
set i2 to vert(i2, einevert)
set i3 to vert(i3, einevert)
set i4 to vert(i4, einevert)
set i5 to vert(i5, einevert)
set i6 to vert(i6, einevert)
set i7 to vert(i7, einevert)
set i8 to vert(i8, einevert)
set i9 to vert(i9, einevert)
set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}


--=========================
-- VERTIKAL -ende
--====================================================


--===================================================
--WAAGRECHTE
--====================================== oben 1

set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}
set einvert to waag1
global einvert

set a1 to waag(a1, einvert)
set b1 to waag(b1, einvert)
set c1 to waag(c1, einvert)
set d1 to waag(d1, einvert)
set e1 to waag(e1, einvert)
set f1 to waag(f1, einvert)
set g1 to waag(g1, einvert)
set h1 to waag(h1, einvert)
set i1 to waag(i1, einvert)
set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}

set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}
set einvert to waag2
global einvert

set a2 to waag(a2, einvert)
set b2 to waag(b2, einvert)
set c2 to waag(c2, einvert)
set d2 to waag(d2, einvert)
set e2 to waag(e2, einvert)
set f2 to waag(f2, einvert)
set g2 to waag(g2, einvert)
set h2 to waag(h2, einvert)
set i2 to waag(i2, einvert)
set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}

set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}
set einvert to waag3
global einvert

set a3 to waag(a3, einvert)
set b3 to waag(b3, einvert)
set c3 to waag(c3, einvert)
set d3 to waag(d3, einvert)
set e3 to waag(e3, einvert)
set f3 to waag(f3, einvert)
set g3 to waag(g3, einvert)
set h3 to waag(h3, einvert)
set i3 to waag(i3, einvert)
set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}

set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}
set einvert to waag4
global einvert

set a4 to waag(a4, einvert)
set b4 to waag(b4, einvert)
set c4 to waag(c4, einvert)
set d4 to waag(d4, einvert)
set e4 to waag(e4, einvert)
set f4 to waag(f4, einvert)
set g4 to waag(g4, einvert)
set h4 to waag(h4, einvert)
set i4 to waag(i4, einvert)
set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}

set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}
set einvert to waag5
global einvert

set a5 to waag(a5, einvert)
set b5 to waag(b5, einvert)
set c5 to waag(c5, einvert)
set d5 to waag(d5, einvert)
set e5 to waag(e5, einvert)
set f5 to waag(f5, einvert)
set g5 to waag(g5, einvert)
set h5 to waag(h5, einvert)
set i5 to waag(i5, einvert)
set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}

set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}
set einvert to waag6
global einvert

set a6 to waag(a6, einvert)
set b6 to waag(b6, einvert)
set c6 to waag(c6, einvert)
set d6 to waag(d6, einvert)
set e6 to waag(e6, einvert)
set f6 to waag(f6, einvert)
set g6 to waag(g6, einvert)
set h6 to waag(h6, einvert)
set i6 to waag(i6, einvert)
set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}

set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}
set einvert to waag7
global einvert

set a7 to waag(a7, einvert)
set b7 to waag(b7, einvert)
set c7 to waag(c7, einvert)
set d7 to waag(d7, einvert)
set e7 to waag(e7, einvert)
set f7 to waag(f7, einvert)
set g7 to waag(g7, einvert)
set h7 to waag(h7, einvert)
set i7 to waag(i7, einvert)
set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}

set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}
set einvert to waag8
global einvert

set a8 to waag(a8, einvert)
set b8 to waag(b8, einvert)
set c8 to waag(c8, einvert)
set d8 to waag(d8, einvert)
set e8 to waag(e8, einvert)
set f8 to waag(f8, einvert)
set g8 to waag(g8, einvert)
set h8 to waag(h8, einvert)
set i8 to waag(i8, einvert)
set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}

set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
set einvert to waag9
global einvert

set a9 to waag(a9, einvert)
set b9 to waag(b9, einvert)
set c9 to waag(c9, einvert)
set d9 to waag(d9, einvert)
set e9 to waag(e9, einvert)
set f9 to waag(f9, einvert)
set g9 to waag(g9, einvert)
set h9 to waag(h9, einvert)
set i9 to waag(i9, einvert)
set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
waag9

end repeat


--=========================
-- Waagrechte -ende
--====================================================

-- WAAGrechtehandler
on waag(einX, einvert)
if class of einX is integer then
return einX
else
set vorh to every integer of einvert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
set s to count infrage

end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end waag

-- VERTIKALHANDLER
on vert(einX, einevert)
if class of einX is integer then
return einX
else
set vorh to every integer of einevert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end vert

--BLOCKEhandler
on block(einX, eineverte)
if class of einX is integer then
return einX
else
set vorh to every integer of eineverte
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end block





set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}

set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9}
display alert "Sdoku 0.1" message (waags as text) & return & return & "(c)2006 by Till s. " & return & "join: www.fischer-bayern.de"


_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 21.04.2006 - 06:14    Titel: Antworten mit Zitat

un wer ander austesten möchte hier biddeschön... scheiß interface ich weiß aber wie gesagt

Zitat:


set a1 to ""
set a2 to ""
set a3 to 5
set a4 to 9
set a5 to ""
set a6 to 7
set a7 to ""
set a8 to ""
set a9 to ""

-- 2.senkrecht
set b1 to 8
set b2 to 4
set b3 to ""
set b4 to ""
set b5 to 3
set b6 to 2
set b7 to ""
set b8 to ""
set b9 to ""

-- 3. senkrecht
set c1 to ""
set c2 to ""
set c3 to ""
set c4 to ""
set c5 to ""
set c6 to ""
set c7 to 2
set c8 to 8
set c9 to 6

-- 4. senkrecht
set d1 to ""
set d2 to ""
set d3 to 4
set d4 to 2
set d5 to 6
set d6 to 5
set d7 to 7
set d8 to ""
set d9 to 1

-- 5.senkrecht
set e1 to 6
set e2 to ""
set e3 to ""
set e4 to 3
set e5 to ""
set e6 to ""
set e7 to 4
set e8 to 2
set e9 to ""

--6. senkrecht
set f1 to 1
set f2 to 7
set f3 to ""
set f4 to ""
set f5 to ""
set f6 to ""
set f7 to ""
set f8 to ""
set f9 to 5

-- 7.senkrecht
set g1 to ""
set g2 to ""
set g3 to 7
set g4 to ""
set g5 to ""
set g6 to ""
set g7 to ""
set g8 to 6
set g9 to ""

-- 8. senkrecht
set h1 to 5
set h2 to ""
set h3 to ""
set h4 to 7
set h5 to ""
set h6 to ""
set h7 to 9
set h8 to 4
set h9 to ""

--9. senkrecht
set i1 to ""
set i2 to ""
set i3 to ""
set i4 to 4
set i5 to 1
set i6 to ""
set i7 to 8
set i8 to ""
set i9 to ""




set a1 to einles(a1)
set a2 to einles(a2)
set a3 to einles(a3)
set a4 to einles(a4)
set a5 to einles(a5)
set a6 to einles(a6)
set a7 to einles(a7)
set a8 to einles(a8)
set a9 to einles(a9)

set b1 to einles(b1)
set b2 to einles(b2)
set b3 to einles(b3)
set b4 to einles(b4)
set b5 to einles(b5)
set b6 to einles(b6)
set b7 to einles(b7)
set b8 to einles(b8)
set b9 to einles(b9)

set c1 to einles(c1)
set c2 to einles(c2)
set c3 to einles(c3)
set c4 to einles(c4)
set c5 to einles(c5)
set c6 to einles(c6)
set c7 to einles(c7)
set c8 to einles(c8)
set c9 to einles(c9)

set d1 to einles(d1)
set d2 to einles(d2)
set d3 to einles(d3)
set d4 to einles(d4)
set d5 to einles(d5)
set d6 to einles(d6)
set d7 to einles(d7)
set d8 to einles(d8)
set d9 to einles(d9)

set e1 to einles(e1)
set e2 to einles(e2)
set e3 to einles(e3)
set e4 to einles(e4)
set e5 to einles(e5)
set e6 to einles(e6)
set e7 to einles(e7)
set e8 to einles(e8)
set e9 to einles(e9)

set f1 to einles(f1)
set f2 to einles(f2)
set f3 to einles(f3)
set f4 to einles(f4)
set f5 to einles(f5)
set f6 to einles(f6)
set f7 to einles(f7)
set f8 to einles(f8)
set f9 to einles(f9)

set g1 to einles(g1)
set g2 to einles(g2)
set g3 to einles(g3)
set g4 to einles(g4)
set g5 to einles(g5)
set g6 to einles(g6)
set g7 to einles(g7)
set g8 to einles(g8)
set g9 to einles(g9)

set h1 to einles(h1)
set h2 to einles(h2)
set h3 to einles(h3)
set h4 to einles(h4)
set h5 to einles(h5)
set h6 to einles(h6)
set h7 to einles(h7)
set h8 to einles(h8)
set h9 to einles(h9)

set i1 to einles(i1)
set i2 to einles(i2)
set i3 to einles(i3)
set i4 to einles(i4)
set i5 to einles(i5)
set i6 to einles(i6)
set i7 to einles(i7)
set i8 to einles(i8)
set i9 to einles(i9)

on einles(var)
set x to display dialog "Geben sie -beginnend mit der obersten reihe von links nach rechts- DIE Zahl ein" & return & "Falls es ein freies feld -ohne zahl- ist bestätigen sie einfach mit ok" default answer ""
if text returned of x is "" then
set var to ""
end if
set var to text returned of x as number
return var
end einles


--VORGABE für jede liste(in jeder liste müssen die zahlen vorkammmen (nich doppelt))
set masterlist to {1, 2, 3, 4, 5, 6, 7, 8, 9}



--====================================================
--Blocks ohne hndler
--==================================== oben
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set vorh to every integer of obenli
set infrage to {}

repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a1 is "" then
set a1 to infrage
end if
if a2 is "" then
set a2 to infrage
end if
if a3 is "" then
set a3 to infrage
end if
if b1 is "" then
set b1 to infrage
end if
if b2 is "" then
set b2 to infrage
end if
if b3 is "" then
set b3 to infrage
end if
if c1 is "" then
set c1 to infrage
end if
if c2 is "" then
set c2 to infrage
end if
if c3 is "" then
set c3 to infrage
end if
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set vorh to every integer of obenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d1 is "" then
set d1 to infrage
end if
if d2 is "" then
set d2 to infrage
end if
if d3 is "" then
set d3 to infrage
end if
if e1 is "" then
set e1 to infrage
end if
if e2 is "" then
set e2 to infrage
end if
if e3 is "" then
set e3 to infrage
end if
if f1 is "" then
set f1 to infrage
end if
if f2 is "" then
set f2 to infrage
end if
if f3 is "" then
set f3 to infrage
end if
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set vorh to every integer of obenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g1 is "" then
set g1 to infrage
end if
if g2 is "" then
set g2 to infrage
end if
if g3 is "" then
set g3 to infrage
end if
if h1 is "" then
set h1 to infrage
end if
if h2 is "" then
set h2 to infrage
end if
if h3 is "" then
set h3 to infrage
end if
if i1 is "" then
set i1 to infrage
end if
if i2 is "" then
set i2 to infrage
end if
if i3 is "" then
set i3 to infrage
end if
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set vorh to every integer of mili
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a4 is "" then
set a4 to infrage
end if
if a5 is "" then
set a5 to infrage
end if
if a6 is "" then
set a6 to infrage
end if
if b4 is "" then
set b4 to infrage
end if
if b5 is "" then
set b5 to infrage
end if
if b6 is "" then
set b6 to infrage
end if
if c4 is "" then
set c4 to infrage
end if
if c5 is "" then
set c5 to infrage
end if
if c6 is "" then
set c6 to infrage
end if
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set vorh to every integer of mimi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d4 is "" then
set d4 to infrage
end if
if d5 is "" then
set d5 to infrage
end if
if d6 is "" then
set d6 to infrage
end if
if e4 is "" then
set e4 to infrage
end if
if e5 is "" then
set e5 to infrage
end if
if e6 is "" then
set e6 to infrage
end if
if f4 is "" then
set f4 to infrage
end if
if f5 is "" then
set f5 to infrage
end if
if f6 is "" then
set f6 to infrage
end if
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set vorh to every integer of mire
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g4 is "" then
set g4 to infrage
end if
if g5 is "" then
set g5 to infrage
end if
if g6 is "" then
set g6 to infrage
end if
if h4 is "" then
set h4 to infrage
end if
if h5 is "" then
set h5 to infrage
end if
if h6 is "" then
set h6 to infrage
end if
if i4 is "" then
set i4 to infrage
end if
if i5 is "" then
set i5 to infrage
end if
if i6 is "" then
set i6 to infrage
end if
set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set vorh to every integer of untenli
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a7 is "" then
set a7 to infrage
end if
if a8 is "" then
set a8 to infrage
end if
if a9 is "" then
set a9 to infrage
end if
if b7 is "" then
set b7 to infrage
end if
if b8 is "" then
set b8 to infrage
end if
if b9 is "" then
set b9 to infrage
end if
if c7 is "" then
set c7 to infrage
end if
if c8 is "" then
set c8 to infrage
end if
if c9 is "" then
set c9 to infrage
end if
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set vorh to every integer of untenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d7 is "" then
set d7 to infrage
end if
if d8 is "" then
set d8 to infrage
end if
if d9 is "" then
set d9 to infrage
end if
if e7 is "" then
set e7 to infrage
end if
if e8 is "" then
set e8 to infrage
end if
if e9 is "" then
set e9 to infrage
end if
if f7 is "" then
set f7 to infrage
end if
if f8 is "" then
set f8 to infrage
end if
if f9 is "" then
set f9 to infrage
end if
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set vorh to every integer of untenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g7 is "" then
set g7 to infrage
end if
if g8 is "" then
set g8 to infrage
end if
if g9 is "" then
set g9 to infrage
end if
if h7 is "" then
set h7 to infrage
end if
if h8 is "" then
set h8 to infrage
end if
if h9 is "" then
set h9 to infrage
end if
if i7 is "" then
set i7 to infrage
end if
if i8 is "" then
set i8 to infrage
end if
if i9 is "" then
set i9 to infrage
end if
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

set blocke to {obenli, return, obenmi, return, obenre, return, mili, return, mimi, return, mire, return, untenli, return, untenmi, return, untenre}
get blocke

--===========================
--BLOCKE -ende
--===================================================




repeat 10 times

set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set eineverte to obenli
global einenverte


set a1 to block(a1, eineverte)
set a2 to block(a2, eineverte)
set a3 to block(a3, eineverte)
set b1 to block(b1, eineverte)
set b2 to block(b2, eineverte)
set b3 to block(b3, eineverte)
set c1 to block(c1, eineverte)
set c2 to block(c2, eineverte)
set c3 to block(c3, eineverte)
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set eineverte to obenmi
global einenverte


set d1 to block(d1, eineverte)
set d2 to block(d2, eineverte)
set d3 to block(d3, eineverte)
set e1 to block(e1, eineverte)
set e2 to block(e2, eineverte)
set e3 to block(e3, eineverte)
set f1 to block(f1, eineverte)
set f2 to block(f2, eineverte)
set f3 to block(f3, eineverte)
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set eineverte to obenre
global einenverte


set g1 to block(g1, eineverte)
set g2 to block(g2, eineverte)
set g3 to block(g3, eineverte)
set h1 to block(h1, eineverte)
set h2 to block(h2, eineverte)
set h3 to block(h3, eineverte)
set i1 to block(i1, eineverte)
set i2 to block(i2, eineverte)
set i3 to block(i3, eineverte)
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set eineverte to mili
global einenverte


set a4 to block(a4, eineverte)
set a5 to block(a5, eineverte)
set a6 to block(a6, eineverte)
set b4 to block(b4, eineverte)
set b5 to block(b5, eineverte)
set b6 to block(b6, eineverte)
set c4 to block(c4, eineverte)
set c5 to block(c5, eineverte)
set c6 to block(c6, eineverte)
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set eineverte to mimi
global einenverte


set d4 to block(d4, eineverte)
set d5 to block(d5, eineverte)
set d6 to block(d6, eineverte)
set e4 to block(e4, eineverte)
set e5 to block(e5, eineverte)
set e6 to block(e6, eineverte)
set f4 to block(f4, eineverte)
set f5 to block(f5, eineverte)
set f6 to block(f6, eineverte)
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set eineverte to mire
global einenverte


set g4 to block(g4, eineverte)
set g5 to block(g5, eineverte)
set g6 to block(g6, eineverte)
set h4 to block(h4, eineverte)
set h5 to block(h5, eineverte)
set h6 to block(h6, eineverte)
set i4 to block(i4, eineverte)
set i5 to block(i5, eineverte)
set i6 to block(i6, eineverte)

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set eineverte to untenli
global einenverte

set a7 to block(a7, eineverte)
set a8 to block(a8, eineverte)
set a9 to block(a9, eineverte)
set b7 to block(b7, eineverte)
set b8 to block(b8, eineverte)
set b9 to block(b9, eineverte)
set c7 to block(c7, eineverte)
set c8 to block(c8, eineverte)
set c9 to block(c9, eineverte)
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set eineverte to untenmi
global einenverte

set d7 to block(d7, eineverte)
set d8 to block(d8, eineverte)
set d9 to block(d9, eineverte)
set e7 to block(e7, eineverte)
set e8 to block(e8, eineverte)
set e9 to block(e9, eineverte)
set f7 to block(f7, eineverte)
set f8 to block(f8, eineverte)
set f9 to block(f9, eineverte)
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set eineverte to untenre
global einenverte

set g7 to block(g7, eineverte)
set g8 to block(g8, eineverte)
set g9 to block(g9, eineverte)
set h7 to block(h7, eineverte)
set h8 to block(h8, eineverte)
set h9 to block(h9, eineverte)
set i7 to block(i7, eineverte)
set i8 to block(i8, eineverte)
set i9 to block(i9, eineverte)
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

--====================================
--end eblocke
--============================================================

--===================================================
--VERTIKALE
--====================================== -> links 1.

set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}
set einevert to a
global einevert

set a1 to vert(a1, einevert)
set a2 to vert(a2, einevert)
set a3 to vert(a3, einevert)
set a4 to vert(a4, einevert)
set a5 to vert(a5, einevert)
set a6 to vert(a6, einevert)
set a7 to vert(a7, einevert)
set a8 to vert(a8, einevert)
set a9 to vert(a9, einevert)
set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}

set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}
set einevert to b
global einevert

set b1 to vert(b1, einevert)
set b2 to vert(b2, einevert)
set b3 to vert(b3, einevert)
set b4 to vert(b4, einevert)
set b5 to vert(b5, einevert)
set b6 to vert(b6, einevert)
set b7 to vert(b7, einevert)
set b8 to vert(b8, einevert)
set b9 to vert(b9, einevert)
set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}

set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}
set einevert to c
global einevert

set c1 to vert(c1, einevert)
set c2 to vert(c2, einevert)
set c3 to vert(c3, einevert)
set c4 to vert(c4, einevert)
set c5 to vert(c5, einevert)
set c6 to vert(c6, einevert)
set c7 to vert(c7, einevert)
set c8 to vert(c8, einevert)
set c9 to vert(c9, einevert)
set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}

set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}
set einevert to d
global einevert

set d1 to vert(d1, einevert)
set d2 to vert(d2, einevert)
set d3 to vert(d3, einevert)
set d4 to vert(d4, einevert)
set d5 to vert(d5, einevert)
set d6 to vert(d6, einevert)
set d7 to vert(d7, einevert)
set d8 to vert(d8, einevert)
set d9 to vert(d9, einevert)
set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}

set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}
set einevert to e
global einevert

set e1 to vert(e1, einevert)
set e2 to vert(e2, einevert)
set e3 to vert(e3, einevert)
set e4 to vert(e4, einevert)
set e5 to vert(e5, einevert)
set e6 to vert(e6, einevert)
set e7 to vert(e7, einevert)
set e8 to vert(e8, einevert)
set e9 to vert(e9, einevert)
set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}

set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}
set einevert to f
global einevert

set f1 to vert(f1, einevert)
set f2 to vert(f2, einevert)
set f3 to vert(f3, einevert)
set f4 to vert(f4, einevert)
set f5 to vert(f5, einevert)
set f6 to vert(f6, einevert)
set f7 to vert(f7, einevert)
set f8 to vert(f8, einevert)
set f9 to vert(f9, einevert)
set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}

set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}
set einevert to g
global einevert

set g1 to vert(g1, einevert)
set g2 to vert(g2, einevert)
set g3 to vert(g3, einevert)
set g4 to vert(g4, einevert)
set g5 to vert(g5, einevert)
set g6 to vert(g6, einevert)
set g7 to vert(g7, einevert)
set g8 to vert(g8, einevert)
set g9 to vert(g9, einevert)
set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}

set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}
set einevert to h
global einevert

set h1 to vert(h1, einevert)
set h2 to vert(h2, einevert)
set h3 to vert(h3, einevert)
set h4 to vert(h4, einevert)
set h5 to vert(h5, einevert)
set h6 to vert(h6, einevert)
set h7 to vert(h7, einevert)
set h8 to vert(h8, einevert)
set h9 to vert(h9, einevert)
set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}

set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}
set einevert to i
global einevert

set i1 to vert(i1, einevert)
set i2 to vert(i2, einevert)
set i3 to vert(i3, einevert)
set i4 to vert(i4, einevert)
set i5 to vert(i5, einevert)
set i6 to vert(i6, einevert)
set i7 to vert(i7, einevert)
set i8 to vert(i8, einevert)
set i9 to vert(i9, einevert)
set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}


--=========================
-- VERTIKAL -ende
--====================================================


--===================================================
--WAAGRECHTE
--====================================== oben 1

set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}
set einvert to waag1
global einvert

set a1 to waag(a1, einvert)
set b1 to waag(b1, einvert)
set c1 to waag(c1, einvert)
set d1 to waag(d1, einvert)
set e1 to waag(e1, einvert)
set f1 to waag(f1, einvert)
set g1 to waag(g1, einvert)
set h1 to waag(h1, einvert)
set i1 to waag(i1, einvert)
set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}

set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}
set einvert to waag2
global einvert

set a2 to waag(a2, einvert)
set b2 to waag(b2, einvert)
set c2 to waag(c2, einvert)
set d2 to waag(d2, einvert)
set e2 to waag(e2, einvert)
set f2 to waag(f2, einvert)
set g2 to waag(g2, einvert)
set h2 to waag(h2, einvert)
set i2 to waag(i2, einvert)
set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}

set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}
set einvert to waag3
global einvert

set a3 to waag(a3, einvert)
set b3 to waag(b3, einvert)
set c3 to waag(c3, einvert)
set d3 to waag(d3, einvert)
set e3 to waag(e3, einvert)
set f3 to waag(f3, einvert)
set g3 to waag(g3, einvert)
set h3 to waag(h3, einvert)
set i3 to waag(i3, einvert)
set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}

set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}
set einvert to waag4
global einvert

set a4 to waag(a4, einvert)
set b4 to waag(b4, einvert)
set c4 to waag(c4, einvert)
set d4 to waag(d4, einvert)
set e4 to waag(e4, einvert)
set f4 to waag(f4, einvert)
set g4 to waag(g4, einvert)
set h4 to waag(h4, einvert)
set i4 to waag(i4, einvert)
set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}

set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}
set einvert to waag5
global einvert

set a5 to waag(a5, einvert)
set b5 to waag(b5, einvert)
set c5 to waag(c5, einvert)
set d5 to waag(d5, einvert)
set e5 to waag(e5, einvert)
set f5 to waag(f5, einvert)
set g5 to waag(g5, einvert)
set h5 to waag(h5, einvert)
set i5 to waag(i5, einvert)
set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}

set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}
set einvert to waag6
global einvert

set a6 to waag(a6, einvert)
set b6 to waag(b6, einvert)
set c6 to waag(c6, einvert)
set d6 to waag(d6, einvert)
set e6 to waag(e6, einvert)
set f6 to waag(f6, einvert)
set g6 to waag(g6, einvert)
set h6 to waag(h6, einvert)
set i6 to waag(i6, einvert)
set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}

set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}
set einvert to waag7
global einvert

set a7 to waag(a7, einvert)
set b7 to waag(b7, einvert)
set c7 to waag(c7, einvert)
set d7 to waag(d7, einvert)
set e7 to waag(e7, einvert)
set f7 to waag(f7, einvert)
set g7 to waag(g7, einvert)
set h7 to waag(h7, einvert)
set i7 to waag(i7, einvert)
set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}

set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}
set einvert to waag8
global einvert

set a8 to waag(a8, einvert)
set b8 to waag(b8, einvert)
set c8 to waag(c8, einvert)
set d8 to waag(d8, einvert)
set e8 to waag(e8, einvert)
set f8 to waag(f8, einvert)
set g8 to waag(g8, einvert)
set h8 to waag(h8, einvert)
set i8 to waag(i8, einvert)
set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}

set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
set einvert to waag9
global einvert

set a9 to waag(a9, einvert)
set b9 to waag(b9, einvert)
set c9 to waag(c9, einvert)
set d9 to waag(d9, einvert)
set e9 to waag(e9, einvert)
set f9 to waag(f9, einvert)
set g9 to waag(g9, einvert)
set h9 to waag(h9, einvert)
set i9 to waag(i9, einvert)
set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
waag9

end repeat


--=========================
-- Waagrechte -ende
--====================================================

-- WAAGrechtehandler
on waag(einX, einvert)
if class of einX is integer then
return einX
else
set vorh to every integer of einvert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
set s to count infrage

end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end waag

-- VERTIKALHANDLER
on vert(einX, einevert)
if class of einX is integer then
return einX
else
set vorh to every integer of einevert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end vert

--BLOCKEhandler
on block(einX, eineverte)
if class of einX is integer then
return einX
else
set vorh to every integer of eineverte
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end block


on bspl()
set a1 to "-"
set a2 to "-"
set a3 to 5
set a4 to 9
set a5 to "-"
set a6 to 7
set a7 to "-"
set a8 to "-"
set a9 to "-"

-- 2.senkrecht
set b1 to 8
set b2 to 4
set b3 to "-"
set b4 to "-"
set b5 to 3
set b6 to 2
set b7 to "-"
set b8 to "-"
set b9 to "-"

-- 3. senkrecht
set c1 to "-"
set c2 to "-"
set c3 to "-"
set c4 to "-"
set c5 to "-"
set c6 to "-"
set c7 to 2
set c8 to 8
set c9 to 6

-- 4. senkrecht
set d1 to "-"
set d2 to "-"
set d3 to 4
set d4 to 2
set d5 to 6
set d6 to 5
set d7 to 7
set d8 to "-"
set d9 to 1

-- 5.senkrecht
set e1 to 6
set e2 to "-"
set e3 to "-"
set e4 to 3
set e5 to "-"
set e6 to "-"
set e7 to 4
set e8 to 2
set e9 to "-"

--6. senkrecht
set f1 to 1
set f2 to 7
set f3 to "-"
set f4 to "-"
set f5 to "-"
set f6 to "-"
set f7 to "-"
set f8 to "-"
set f9 to 5

-- 7.senkrecht
set g1 to "-"
set g2 to "-"
set g3 to 7
set g4 to "-"
set g5 to "-"
set g6 to "-"
set g7 to "-"
set g8 to 6
set g9 to "-"

-- 8. senkrecht
set h1 to 5
set h2 to "-"
set h3 to "-"
set h4 to 7
set h5 to "-"
set h6 to "-"
set h7 to 9
set h8 to 4
set h9 to "-"

--9. senkrecht
set i1 to "-"
set i2 to "-"
set i3 to "-"
set i4 to 4
set i5 to 1
set i6 to "-"
set i7 to 8
set i8 to "-"
set i9 to "-"


set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}

set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9}
display alert "Sdoku 0.1" message (waags as text) & return & return & "(c)2006 by Till s. " & return & "join: www.fischer-bayern.de"

end bspl



set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}

set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9}
display alert "Sdoku 0.1" message (waags as text) & return & return & "(c)2006 by Till s. " & return & "join: www.fischer-bayern.de"


_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 21.04.2006 - 08:55    Titel: Antworten mit Zitat

Hi till...

Keine Ahnung, wie das Ergebnis aussehen soll, aber doch bestimmt nicht so, wie das zu diesem sudoku, oder?

Code:

set a1 to ""
set a2 to ""
set a3 to ""
set a4 to ""
set a5 to ""
set a6 to 6
set a7 to ""
set a8 to 5
set a9 to ""

-- 2.senkrecht
set b1 to 2
set b2 to ""
set b3 to 7
set b4 to ""
set b5 to 8
set b6 to ""
set b7 to ""
set b8 to ""
set b9 to ""

-- 3. senkrecht
set c1 to ""
set c2 to ""
set c3 to 4
set c4 to ""
set c5 to ""
set c6 to ""
set c7 to ""
set c8 to ""
set c9 to ""

-- 4. senkrecht
set d1 to ""
set d2 to 6
set d3 to ""
set d4 to ""
set d5 to ""
set d6 to 5
set d7 to ""
set d8 to ""
set d9 to ""

-- 5.senkrecht
set e1 to ""
set e2 to ""
set e3 to 8
set e4 to ""
set e5 to 4
set e6 to ""
set e7 to 1
set e8 to ""
set e9 to ""

--6. senkrecht
set f1 to ""
set f2 to ""
set f3 to ""
set f4 to 3
set f5 to ""
set f6 to ""
set f7 to ""
set f8 to 9
set f9 to ""

-- 7.senkrecht
set g1 to ""
set g2 to ""
set g3 to ""
set g4 to ""
set g5 to ""
set g6 to ""
set g7 to 7
set g8 to ""
set g9 to ""

-- 8. senkrecht
set h1 to ""
set h2 to ""
set h3 to ""
set h4 to ""
set h5 to 1
set h6 to ""
set h7 to 8
set h8 to ""
set h9 to 4

--9. senkrecht
set i1 to ""
set i2 to 3
set i3 to ""
set i4 to 2
set i5 to ""
set i6 to ""
set i7 to ""
set i8 to ""
set i9 to ""



Ich bin allerdings nicht sicher, ob ich es richtig eingegeben habe. So sieht es im Original aus:
Code:

-2- --- ---
--- 6-- --3
-74 -8- ---
--- --3 --2
-8- -4- -1-
6-- 5-- ---
--- -1- 78-
5-- --9 ---
--- --- -4-
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
till
•--->
•--->


Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)

BeitragVerfasst am: 21.04.2006 - 08:57    Titel: Antworten mit Zitat

so hier die entgültige version zum lösen eines jeden matheemathisch zu lösenden sudokus!!!
http://sudoku.zeit.de/cgi-bin/sudoku/sudoku_kd_app.pl?action=level&kd_nr=24091123601092&year=2006&month=04&day=21&level=-c+2


-- bitte um resumees (zum verbessern)
-- codeformatter geht aus iergendeinem grund flöten

gn8 till

Zitat:

global z, ze, a1, b1, c1, d1, e1, f1, g1, h1, i1, a2, b2, c2, d2, e2, f2, g2, h2, i2, a3, b3, c3, d3, e3, f3, g3, h3, i3, a4, b4, c4, d4, e4, f4, g4, h4, i4, a5, b5, c5, d5, e5, f5, g5, h5, i5, a6, b6, c6, d6, e6, f6, g6, h6, i6, a7, b7, c7, d7, e7, f7, g7, h7, i7, a8, b8, c8, d8, e8, f8, g8, h8, i8, a9, b9, c9, d9, e9, f9, g9, h9, i9

set z to 0
set ze to 1

set a1 to "-"
set a2 to "-"
set a3 to "-"
set a4 to "-"
set a5 to "-"
set a6 to "-"
set a7 to "-"
set a8 to "-"
set a9 to "-"

-- 2.senkrecht
set b1 to "-"
set b2 to "-"
set b3 to "-"
set b4 to "-"
set b5 to "-"
set b6 to "-"
set b7 to "-"
set b8 to "-"
set b9 to "-"

-- 3. senkrecht
set c1 to "-"
set c2 to "-"
set c3 to "-"
set c4 to "-"
set c5 to "-"
set c6 to "-"
set c7 to "-"
set c8 to "-"
set c9 to "-"

-- 4. senkrecht
set d1 to "-"
set d2 to "-"
set d3 to "-"
set d4 to "-"
set d5 to "-"
set d6 to "-"
set d7 to "-"
set d8 to "-"
set d9 to "-"

-- 5.senkrecht
set e1 to "-"
set e2 to "-"
set e3 to "-"
set e4 to "-"
set e5 to "-"
set e6 to "-"
set e7 to "-"
set e8 to "-"
set e9 to "-"

--6. senkrecht
set f1 to "-"
set f2 to "-"
set f3 to "-"
set f4 to "-"
set f5 to "-"
set f6 to "-"
set f7 to "-"
set f8 to "-"
set f9 to "-"

-- 7.senkrecht
set g1 to "-"
set g2 to "-"
set g3 to "-"
set g4 to "-"
set g5 to "-"
set g6 to "-"
set g7 to "-"
set g8 to "-"
set g9 to "-"

-- 8. senkrecht
set h1 to "-"
set h2 to "-"
set h3 to "-"
set h4 to "-"
set h5 to "-"
set h6 to "-"
set h7 to "-"
set h8 to "-"
set h9 to "-"

--9. senkrecht
set i1 to "-"
set i2 to "-"
set i3 to "-"
set i4 to "-"
set i5 to "-"
set i6 to "-"
set i7 to "-"
set i8 to "-"
set i9 to "-"



set a1 to einles(a1)
set a2 to einles(a2)
set a3 to einles(a3)
set a4 to einles(a4)
set a5 to einles(a5)
set a6 to einles(a6)
set a7 to einles(a7)
set a8 to einles(a8)
set a9 to einles(a9)

set b1 to einles(b1)
set b2 to einles(b2)
set b3 to einles(b3)
set b4 to einles(b4)
set b5 to einles(b5)
set b6 to einles(b6)
set b7 to einles(b7)
set b8 to einles(b8)
set b9 to einles(b9)

set c1 to einles(c1)
set c2 to einles(c2)
set c3 to einles(c3)
set c4 to einles(c4)
set c5 to einles(c5)
set c6 to einles(c6)
set c7 to einles(c7)
set c8 to einles(c8)
set c9 to einles(c9)

set d1 to einles(d1)
set d2 to einles(d2)
set d3 to einles(d3)
set d4 to einles(d4)
set d5 to einles(d5)
set d6 to einles(d6)
set d7 to einles(d7)
set d8 to einles(d8)
set d9 to einles(d9)

set e1 to einles(e1)
set e2 to einles(e2)
set e3 to einles(e3)
set e4 to einles(e4)
set e5 to einles(e5)
set e6 to einles(e6)
set e7 to einles(e7)
set e8 to einles(e8)
set e9 to einles(e9)

set f1 to einles(f1)
set f2 to einles(f2)
set f3 to einles(f3)
set f4 to einles(f4)
set f5 to einles(f5)
set f6 to einles(f6)
set f7 to einles(f7)
set f8 to einles(f8)
set f9 to einles(f9)

set g1 to einles(g1)
set g2 to einles(g2)
set g3 to einles(g3)
set g4 to einles(g4)
set g5 to einles(g5)
set g6 to einles(g6)
set g7 to einles(g7)
set g8 to einles(g8)
set g9 to einles(g9)

set h1 to einles(h1)
set h2 to einles(h2)
set h3 to einles(h3)
set h4 to einles(h4)
set h5 to einles(h5)
set h6 to einles(h6)
set h7 to einles(h7)
set h8 to einles(h8)
set h9 to einles(h9)

set i1 to einles(i1)
set i2 to einles(i2)
set i3 to einles(i3)
set i4 to einles(i4)
set i5 to einles(i5)
set i6 to einles(i6)
set i7 to einles(i7)
set i8 to einles(i8)
set i9 to einles(i9)


on einles(var)

set z to z + 1



set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
repeat with x from 1 to count items of waag1
if item x of waag1 is "" then
set item x of waag1 to "#"
end if
if z = 1 then
set item 1 of waag1 to "?"
end if
end repeat
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
repeat with x from 1 to count items of waag2
if item x of waag2 is "" then
set item x of waag2 to "#"
end if
if z = 2 then
set item 1 of waag2 to "?"
end if
end repeat
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
repeat with x from 1 to count items of waag3
if item x of waag3 is "" then
set item x of waag3 to "#"
end if
if z = 3 then
set item 1 of waag3 to "?"
end if
end repeat
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
repeat with x from 1 to count items of waag4
if item x of waag4 is "" then
set item x of waag4 to "#"
end if
if z = 4 then
set item 1 of waag4 to "?"
end if
end repeat
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
repeat with x from 1 to count items of waag5
if item x of waag5 is "" then
set item x of waag5 to "#"
end if
if z = 5 then
set item 1 of waag5 to "?"
end if
end repeat
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
repeat with x from 1 to count items of waag6
if item x of waag6 is "" then
set item x of waag6 to "#"
end if
if z = 6 then
set item 1 of waag6 to "?"
end if
end repeat
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
repeat with x from 1 to count items of waag7
if item x of waag7 is "" then
set item x of waag7 to "#"
end if
if z = 7 then
set item 1 of waag7 to "?"
end if
end repeat
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
repeat with x from 1 to count items of waag8
if item x of waag8 is "" then
set item x of waag8 to "#"
end if
if z = 8 then
set item 1 of waag8 to "?"
end if
end repeat
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}
repeat with x from 1 to count items of waag9
if item x of waag9 is "" then
set item x of waag9 to "#"
end if
if z = 9 then
set item 1 of waag9 to "?"
end if
end repeat



set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9} as text

set x to display dialog waags & return & return & "Wet für " & z & "-tes Feld eingeben und mit ok bestätigen." & return & "Bei leerem feld einfach bestätigen." default answer ""
if text returned of x is "" then
set var to ""
return var
end if
set var to text returned of x as number
return var
end einles


--VORGABE für jede liste(in jeder liste müssen die zahlen vorkammmen (nich doppelt))
set masterlist to {1, 2, 3, 4, 5, 6, 7, 8, 9}



--====================================================
--Blocks ohne hndler
--==================================== oben
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set vorh to every integer of obenli
set infrage to {}

repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a1 is "" then
set a1 to infrage
end if
if a2 is "" then
set a2 to infrage
end if
if a3 is "" then
set a3 to infrage
end if
if b1 is "" then
set b1 to infrage
end if
if b2 is "" then
set b2 to infrage
end if
if b3 is "" then
set b3 to infrage
end if
if c1 is "" then
set c1 to infrage
end if
if c2 is "" then
set c2 to infrage
end if
if c3 is "" then
set c3 to infrage
end if
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set vorh to every integer of obenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d1 is "" then
set d1 to infrage
end if
if d2 is "" then
set d2 to infrage
end if
if d3 is "" then
set d3 to infrage
end if
if e1 is "" then
set e1 to infrage
end if
if e2 is "" then
set e2 to infrage
end if
if e3 is "" then
set e3 to infrage
end if
if f1 is "" then
set f1 to infrage
end if
if f2 is "" then
set f2 to infrage
end if
if f3 is "" then
set f3 to infrage
end if
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set vorh to every integer of obenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g1 is "" then
set g1 to infrage
end if
if g2 is "" then
set g2 to infrage
end if
if g3 is "" then
set g3 to infrage
end if
if h1 is "" then
set h1 to infrage
end if
if h2 is "" then
set h2 to infrage
end if
if h3 is "" then
set h3 to infrage
end if
if i1 is "" then
set i1 to infrage
end if
if i2 is "" then
set i2 to infrage
end if
if i3 is "" then
set i3 to infrage
end if
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set vorh to every integer of mili
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a4 is "" then
set a4 to infrage
end if
if a5 is "" then
set a5 to infrage
end if
if a6 is "" then
set a6 to infrage
end if
if b4 is "" then
set b4 to infrage
end if
if b5 is "" then
set b5 to infrage
end if
if b6 is "" then
set b6 to infrage
end if
if c4 is "" then
set c4 to infrage
end if
if c5 is "" then
set c5 to infrage
end if
if c6 is "" then
set c6 to infrage
end if
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set vorh to every integer of mimi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d4 is "" then
set d4 to infrage
end if
if d5 is "" then
set d5 to infrage
end if
if d6 is "" then
set d6 to infrage
end if
if e4 is "" then
set e4 to infrage
end if
if e5 is "" then
set e5 to infrage
end if
if e6 is "" then
set e6 to infrage
end if
if f4 is "" then
set f4 to infrage
end if
if f5 is "" then
set f5 to infrage
end if
if f6 is "" then
set f6 to infrage
end if
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set vorh to every integer of mire
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g4 is "" then
set g4 to infrage
end if
if g5 is "" then
set g5 to infrage
end if
if g6 is "" then
set g6 to infrage
end if
if h4 is "" then
set h4 to infrage
end if
if h5 is "" then
set h5 to infrage
end if
if h6 is "" then
set h6 to infrage
end if
if i4 is "" then
set i4 to infrage
end if
if i5 is "" then
set i5 to infrage
end if
if i6 is "" then
set i6 to infrage
end if
set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set vorh to every integer of untenli
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat

if a7 is "" then
set a7 to infrage
end if
if a8 is "" then
set a8 to infrage
end if
if a9 is "" then
set a9 to infrage
end if
if b7 is "" then
set b7 to infrage
end if
if b8 is "" then
set b8 to infrage
end if
if b9 is "" then
set b9 to infrage
end if
if c7 is "" then
set c7 to infrage
end if
if c8 is "" then
set c8 to infrage
end if
if c9 is "" then
set c9 to infrage
end if
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set vorh to every integer of untenmi
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if d7 is "" then
set d7 to infrage
end if
if d8 is "" then
set d8 to infrage
end if
if d9 is "" then
set d9 to infrage
end if
if e7 is "" then
set e7 to infrage
end if
if e8 is "" then
set e8 to infrage
end if
if e9 is "" then
set e9 to infrage
end if
if f7 is "" then
set f7 to infrage
end if
if f8 is "" then
set f8 to infrage
end if
if f9 is "" then
set f9 to infrage
end if
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set vorh to every integer of untenre
set infrage to {}
repeat with zahl in masterlist
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
if g7 is "" then
set g7 to infrage
end if
if g8 is "" then
set g8 to infrage
end if
if g9 is "" then
set g9 to infrage
end if
if h7 is "" then
set h7 to infrage
end if
if h8 is "" then
set h8 to infrage
end if
if h9 is "" then
set h9 to infrage
end if
if i7 is "" then
set i7 to infrage
end if
if i8 is "" then
set i8 to infrage
end if
if i9 is "" then
set i9 to infrage
end if
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

set blocke to {obenli, return, obenmi, return, obenre, return, mili, return, mimi, return, mire, return, untenli, return, untenmi, return, untenre}
get blocke

--===========================
--BLOCKE -ende
--===================================================




repeat 10 times

set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}
set eineverte to obenli
global einenverte


set a1 to block(a1, eineverte)
set a2 to block(a2, eineverte)
set a3 to block(a3, eineverte)
set b1 to block(b1, eineverte)
set b2 to block(b2, eineverte)
set b3 to block(b3, eineverte)
set c1 to block(c1, eineverte)
set c2 to block(c2, eineverte)
set c3 to block(c3, eineverte)
set obenli to {a1, a2, a3, b1, b2, b3, c1, c2, c3}


--obenmi
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}
set eineverte to obenmi
global einenverte


set d1 to block(d1, eineverte)
set d2 to block(d2, eineverte)
set d3 to block(d3, eineverte)
set e1 to block(e1, eineverte)
set e2 to block(e2, eineverte)
set e3 to block(e3, eineverte)
set f1 to block(f1, eineverte)
set f2 to block(f2, eineverte)
set f3 to block(f3, eineverte)
set obenmi to {d1, d2, d3, e1, e2, e3, f1, f2, f3}


--obenre
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}
set eineverte to obenre
global einenverte


set g1 to block(g1, eineverte)
set g2 to block(g2, eineverte)
set g3 to block(g3, eineverte)
set h1 to block(h1, eineverte)
set h2 to block(h2, eineverte)
set h3 to block(h3, eineverte)
set i1 to block(i1, eineverte)
set i2 to block(i2, eineverte)
set i3 to block(i3, eineverte)
set obenre to {g1, g2, g3, h1, h2, h3, i1, i2, i3}

--=============================================Blocks mitte

set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}
set eineverte to mili
global einenverte


set a4 to block(a4, eineverte)
set a5 to block(a5, eineverte)
set a6 to block(a6, eineverte)
set b4 to block(b4, eineverte)
set b5 to block(b5, eineverte)
set b6 to block(b6, eineverte)
set c4 to block(c4, eineverte)
set c5 to block(c5, eineverte)
set c6 to block(c6, eineverte)
set mili to {a4, a5, a6, b4, b5, b6, c4, c5, c6}


set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}
set eineverte to mimi
global einenverte


set d4 to block(d4, eineverte)
set d5 to block(d5, eineverte)
set d6 to block(d6, eineverte)
set e4 to block(e4, eineverte)
set e5 to block(e5, eineverte)
set e6 to block(e6, eineverte)
set f4 to block(f4, eineverte)
set f5 to block(f5, eineverte)
set f6 to block(f6, eineverte)
set mimi to {d4, d5, d6, e4, e5, e6, f4, f5, f6}

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}
set eineverte to mire
global einenverte


set g4 to block(g4, eineverte)
set g5 to block(g5, eineverte)
set g6 to block(g6, eineverte)
set h4 to block(h4, eineverte)
set h5 to block(h5, eineverte)
set h6 to block(h6, eineverte)
set i4 to block(i4, eineverte)
set i5 to block(i5, eineverte)
set i6 to block(i6, eineverte)

set mire to {g4, g5, g6, h4, h5, h6, i4, i5, i6}

--===========================================blocks unten

set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}
set eineverte to untenli
global einenverte

set a7 to block(a7, eineverte)
set a8 to block(a8, eineverte)
set a9 to block(a9, eineverte)
set b7 to block(b7, eineverte)
set b8 to block(b8, eineverte)
set b9 to block(b9, eineverte)
set c7 to block(c7, eineverte)
set c8 to block(c8, eineverte)
set c9 to block(c9, eineverte)
set untenli to {a7, a8, a9, b7, b8, b9, c7, c8, c9}


set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}
set eineverte to untenmi
global einenverte

set d7 to block(d7, eineverte)
set d8 to block(d8, eineverte)
set d9 to block(d9, eineverte)
set e7 to block(e7, eineverte)
set e8 to block(e8, eineverte)
set e9 to block(e9, eineverte)
set f7 to block(f7, eineverte)
set f8 to block(f8, eineverte)
set f9 to block(f9, eineverte)
set untenmi to {d7, d8, d9, e7, e8, e9, f7, f8, f9}


set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}
set eineverte to untenre
global einenverte

set g7 to block(g7, eineverte)
set g8 to block(g8, eineverte)
set g9 to block(g9, eineverte)
set h7 to block(h7, eineverte)
set h8 to block(h8, eineverte)
set h9 to block(h9, eineverte)
set i7 to block(i7, eineverte)
set i8 to block(i8, eineverte)
set i9 to block(i9, eineverte)
set untenre to {g7, g8, g9, h7, h8, h9, i7, i8, i9}

--====================================
--end eblocke
--============================================================

--===================================================
--VERTIKALE
--====================================== -> links 1.

set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}
set einevert to a
global einevert

set a1 to vert(a1, einevert)
set a2 to vert(a2, einevert)
set a3 to vert(a3, einevert)
set a4 to vert(a4, einevert)
set a5 to vert(a5, einevert)
set a6 to vert(a6, einevert)
set a7 to vert(a7, einevert)
set a8 to vert(a8, einevert)
set a9 to vert(a9, einevert)
set a to {a1, a2, a3, a4, a5, a6, a7, a8, a9}

set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}
set einevert to b
global einevert

set b1 to vert(b1, einevert)
set b2 to vert(b2, einevert)
set b3 to vert(b3, einevert)
set b4 to vert(b4, einevert)
set b5 to vert(b5, einevert)
set b6 to vert(b6, einevert)
set b7 to vert(b7, einevert)
set b8 to vert(b8, einevert)
set b9 to vert(b9, einevert)
set b to {b1, b2, b3, b4, b5, b6, b7, b8, b9}

set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}
set einevert to c
global einevert

set c1 to vert(c1, einevert)
set c2 to vert(c2, einevert)
set c3 to vert(c3, einevert)
set c4 to vert(c4, einevert)
set c5 to vert(c5, einevert)
set c6 to vert(c6, einevert)
set c7 to vert(c7, einevert)
set c8 to vert(c8, einevert)
set c9 to vert(c9, einevert)
set c to {c1, c2, c3, c4, c5, c6, c7, c8, c9}

set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}
set einevert to d
global einevert

set d1 to vert(d1, einevert)
set d2 to vert(d2, einevert)
set d3 to vert(d3, einevert)
set d4 to vert(d4, einevert)
set d5 to vert(d5, einevert)
set d6 to vert(d6, einevert)
set d7 to vert(d7, einevert)
set d8 to vert(d8, einevert)
set d9 to vert(d9, einevert)
set d to {d1, d2, d3, d4, d5, d6, d7, d8, d9}

set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}
set einevert to e
global einevert

set e1 to vert(e1, einevert)
set e2 to vert(e2, einevert)
set e3 to vert(e3, einevert)
set e4 to vert(e4, einevert)
set e5 to vert(e5, einevert)
set e6 to vert(e6, einevert)
set e7 to vert(e7, einevert)
set e8 to vert(e8, einevert)
set e9 to vert(e9, einevert)
set e to {e1, e2, e3, e4, e5, e6, e7, e8, e9}

set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}
set einevert to f
global einevert

set f1 to vert(f1, einevert)
set f2 to vert(f2, einevert)
set f3 to vert(f3, einevert)
set f4 to vert(f4, einevert)
set f5 to vert(f5, einevert)
set f6 to vert(f6, einevert)
set f7 to vert(f7, einevert)
set f8 to vert(f8, einevert)
set f9 to vert(f9, einevert)
set f to {f1, f2, f3, f4, f5, f6, f7, f8, f9}

set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}
set einevert to g
global einevert

set g1 to vert(g1, einevert)
set g2 to vert(g2, einevert)
set g3 to vert(g3, einevert)
set g4 to vert(g4, einevert)
set g5 to vert(g5, einevert)
set g6 to vert(g6, einevert)
set g7 to vert(g7, einevert)
set g8 to vert(g8, einevert)
set g9 to vert(g9, einevert)
set g to {g1, g2, g3, g4, g5, g6, g7, g8, g9}

set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}
set einevert to h
global einevert

set h1 to vert(h1, einevert)
set h2 to vert(h2, einevert)
set h3 to vert(h3, einevert)
set h4 to vert(h4, einevert)
set h5 to vert(h5, einevert)
set h6 to vert(h6, einevert)
set h7 to vert(h7, einevert)
set h8 to vert(h8, einevert)
set h9 to vert(h9, einevert)
set h to {h1, h2, h3, h4, h5, h6, h7, h8, h9}

set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}
set einevert to i
global einevert

set i1 to vert(i1, einevert)
set i2 to vert(i2, einevert)
set i3 to vert(i3, einevert)
set i4 to vert(i4, einevert)
set i5 to vert(i5, einevert)
set i6 to vert(i6, einevert)
set i7 to vert(i7, einevert)
set i8 to vert(i8, einevert)
set i9 to vert(i9, einevert)
set i to {i1, i2, i3, i4, i5, i6, i7, i8, i9}


--=========================
-- VERTIKAL -ende
--====================================================


--===================================================
--WAAGRECHTE
--====================================== oben 1

set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}
set einvert to waag1
global einvert

set a1 to waag(a1, einvert)
set b1 to waag(b1, einvert)
set c1 to waag(c1, einvert)
set d1 to waag(d1, einvert)
set e1 to waag(e1, einvert)
set f1 to waag(f1, einvert)
set g1 to waag(g1, einvert)
set h1 to waag(h1, einvert)
set i1 to waag(i1, einvert)
set waag1 to {a1, b1, c1, d1, e1, f1, g1, h1, i1}

set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}
set einvert to waag2
global einvert

set a2 to waag(a2, einvert)
set b2 to waag(b2, einvert)
set c2 to waag(c2, einvert)
set d2 to waag(d2, einvert)
set e2 to waag(e2, einvert)
set f2 to waag(f2, einvert)
set g2 to waag(g2, einvert)
set h2 to waag(h2, einvert)
set i2 to waag(i2, einvert)
set waag2 to {a2, b2, c2, d2, e2, f2, g2, h2, i2}

set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}
set einvert to waag3
global einvert

set a3 to waag(a3, einvert)
set b3 to waag(b3, einvert)
set c3 to waag(c3, einvert)
set d3 to waag(d3, einvert)
set e3 to waag(e3, einvert)
set f3 to waag(f3, einvert)
set g3 to waag(g3, einvert)
set h3 to waag(h3, einvert)
set i3 to waag(i3, einvert)
set waag3 to {a3, b3, c3, d3, e3, f3, g3, h3, i3}

set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}
set einvert to waag4
global einvert

set a4 to waag(a4, einvert)
set b4 to waag(b4, einvert)
set c4 to waag(c4, einvert)
set d4 to waag(d4, einvert)
set e4 to waag(e4, einvert)
set f4 to waag(f4, einvert)
set g4 to waag(g4, einvert)
set h4 to waag(h4, einvert)
set i4 to waag(i4, einvert)
set waag4 to {a4, b4, c4, d4, e4, f4, g4, h4, i4}

set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}
set einvert to waag5
global einvert

set a5 to waag(a5, einvert)
set b5 to waag(b5, einvert)
set c5 to waag(c5, einvert)
set d5 to waag(d5, einvert)
set e5 to waag(e5, einvert)
set f5 to waag(f5, einvert)
set g5 to waag(g5, einvert)
set h5 to waag(h5, einvert)
set i5 to waag(i5, einvert)
set waag5 to {a5, b5, c5, d5, e5, f5, g5, h5, i5}

set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}
set einvert to waag6
global einvert

set a6 to waag(a6, einvert)
set b6 to waag(b6, einvert)
set c6 to waag(c6, einvert)
set d6 to waag(d6, einvert)
set e6 to waag(e6, einvert)
set f6 to waag(f6, einvert)
set g6 to waag(g6, einvert)
set h6 to waag(h6, einvert)
set i6 to waag(i6, einvert)
set waag6 to {a6, b6, c6, d6, e6, f6, g6, h6, i6}

set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}
set einvert to waag7
global einvert

set a7 to waag(a7, einvert)
set b7 to waag(b7, einvert)
set c7 to waag(c7, einvert)
set d7 to waag(d7, einvert)
set e7 to waag(e7, einvert)
set f7 to waag(f7, einvert)
set g7 to waag(g7, einvert)
set h7 to waag(h7, einvert)
set i7 to waag(i7, einvert)
set waag7 to {a7, b7, c7, d7, e7, f7, g7, h7, i7}

set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}
set einvert to waag8
global einvert

set a8 to waag(a8, einvert)
set b8 to waag(b8, einvert)
set c8 to waag(c8, einvert)
set d8 to waag(d8, einvert)
set e8 to waag(e8, einvert)
set f8 to waag(f8, einvert)
set g8 to waag(g8, einvert)
set h8 to waag(h8, einvert)
set i8 to waag(i8, einvert)
set waag8 to {a8, b8, c8, d8, e8, f8, g8, h8, i8}

set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
set einvert to waag9
global einvert

set a9 to waag(a9, einvert)
set b9 to waag(b9, einvert)
set c9 to waag(c9, einvert)
set d9 to waag(d9, einvert)
set e9 to waag(e9, einvert)
set f9 to waag(f9, einvert)
set g9 to waag(g9, einvert)
set h9 to waag(h9, einvert)
set i9 to waag(i9, einvert)
set waag9 to {a9, b9, c9, d9, e9, f9, g9, h9, i9}
waag9

end repeat


--=========================
-- Waagrechte -ende
--====================================================

-- WAAGrechtehandler
on waag(einX, einvert)
if class of einX is integer then
return einX
else
set vorh to every integer of einvert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
set s to count infrage

end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end waag

-- VERTIKALHANDLER
on vert(einX, einevert)
if class of einX is integer then
return einX
else
set vorh to every integer of einevert
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end vert

--BLOCKEhandler
on block(einX, eineverte)
if class of einX is integer then
return einX
else
set vorh to every integer of eineverte
set infrage to {}
repeat with zahl in einX
if vorh contains zahl then
else
set infrage to infrage & zahl
end if
end repeat
set s to count infrage
if s = 1 then
set infrage to infrage as number
--display dialog infrage
end if
set einX to infrage
return einX
end if
end block






set waag1 to {a1, tab, b1, tab, c1, tab, tab, d1, tab, e1, tab, f1, tab, tab, g1, tab, h1, tab, i1}
set waag2 to {a2, tab, b2, tab, c2, tab, tab, d2, tab, e2, tab, f2, tab, tab, g2, tab, h2, tab, i2}
set waag3 to {a3, tab, b3, tab, c3, tab, tab, d3, tab, e3, tab, f3, tab, tab, g3, tab, h3, tab, i3}
set waag4 to {a4, tab, b4, tab, c4, tab, tab, d4, tab, e4, tab, f4, tab, tab, g4, tab, h4, tab, i4}
set waag5 to {a5, tab, b5, tab, c5, tab, tab, d5, tab, e5, tab, f5, tab, tab, g5, tab, h5, tab, i5}
set waag6 to {a6, tab, b6, tab, c6, tab, tab, d6, tab, e6, tab, f6, tab, tab, g6, tab, h6, tab, i6}
set waag7 to {a7, tab, b7, tab, c7, tab, tab, d7, tab, e7, tab, f7, tab, tab, g7, tab, h7, tab, i7}
set waag8 to {a8, tab, b8, tab, c8, tab, tab, d8, tab, e8, tab, f8, tab, tab, g8, tab, h8, tab, i8}
set waag9 to {a9, tab, b9, tab, c9, tab, tab, d9, tab, e9, tab, f9, tab, tab, g9, tab, h9, tab, i9}

set waags to {waag1, return, waag2, return, waag3, return, return, waag4, return, waag5, return, waag6, return, return, waag7, return, waag8, return, waag9}
display alert "Sdoku 0.1" message (waags as text) & return & return & "(c)2006 by Till s. " & return & "join: www.fischer-bayern.de"



_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter