to aaa

; MSWLOGO SOLUTION - www.softronix.com
;
; Solves Attemptation No. 1 The Age newspaper
;
; Puzzle by Albert Haddad - www.theage.com.au
;
;   P L E A S E
;     S O L V E
; + P U Z Z L E
;   -----------
; = * * * * * *
;   -----------
;
; Where Z = 7, * = 7, others 0, 1, 2, 3, 5, 6, 8, 9
;
; Partial solution required, since E = 9, P = 3
; It is easy to solve for E and P. Other values
; are more difficult! Solve only for A, L, O, S, U, V
; The solution is found much faster this way!
;
; Logo by: Peter King - www.procontechnology.com.au

make "t1 0
make "r1 0

(rerandom 1)

while [not (:r1 = 777777)] [solve.me.once]

print.solution1

end

to print.solution1

print "
(print "|P L E A S E   | :P :L :E :A :S :E)
(print "|  S O L V E	| :S :O :L :V :E)
(print "|P U Z Z L E   | :P :U :Z :Z :L :E)
print "

end

to solve.me.once

make "a1 [0 1 2 5 6 8]

make "P 3
make "L pick :a1
make "a1 remove :L :a1
make "E 9
make "A pick :a1
make "a1 remove :A :a1
make "S pick :a1
make "a1 remove :S :a1

make "O pick :a1
make "a1 remove :O :a1
make "V pick :a1
make "a1 remove :V :a1
make "U pick :a1
make "a1 remove :U :a1
make "Z 7

make "t1 :t1+1
(type :t1 "| | :L "| | :A "| | :S "| | :O "| | :V "| | :U)

make "n1 (word :P :L :E :A :S :E)
make "n2 (word :S :O :L :V :E)
make "n3 (word :P :U :Z :Z :L :E)
make "r1 :n1+:n2+:n3
(print "| | :r1)

end

to zzz
	ifelse YesNoBox [Welcome] [Choose YES to run example now, Choose NO Study it now.] [aaa] [edall]
end