4-rings or 4-squares puzzle: Difference between revisions
Content added Content deleted
(4-rings or 4-squares puzzle in Chipmunk Basic) |
|||
Line 2,326: | Line 2,326: | ||
</pre> |
</pre> |
||
=={{header|Chipmunk Basic}}== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
{{trans|Applesoft BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 plo = 1 : phi = 7 : punique = true : pshow = true : gosub 50 : rem "FOURSQUARES" |
|||
20 plo = 3 : phi = 9 : punique = true : pshow = true : gosub 50 : rem "FOURSQUARES" |
|||
30 plo = 0 : phi = 9 : punique = false : pshow = false : gosub 50 : rem "FOURSQUARES" |
|||
40 end |
|||
50 lo = plo |
|||
60 hi = phi |
|||
70 unique = punique |
|||
80 show = pshow |
|||
90 s = 0 : rem SOLUTIONS |
|||
100 print |
|||
110 gosub 170 : rem "ACD" |
|||
120 print |
|||
130 print s " "; |
|||
140 if not unique then print "NON-"; |
|||
150 print "UNIQUE SOLUTIONS IN " lo " TO " hi |
|||
160 return |
|||
170 for c = lo to hi |
|||
180 for d = lo to hi |
|||
190 if ( not unique) or (c <> d) then |
|||
200 a = c+d |
|||
210 if (a >= lo) and (a <= hi) and (( not unique) or ((c <> 0) and (d <> 0))) then gosub 250 : rem "GE" |
|||
220 endif |
|||
230 next d,c |
|||
240 return |
|||
250 for e = lo to hi |
|||
260 if ( not unique) or ((e <> a) and (e <> c) and (e <> d)) then |
|||
270 g = d+e |
|||
280 if (g >= lo) and (g <= hi) and (( not unique) or ((g <> a) and (g <> c) and (g <> d) and (g <> e))) then gosub 320 : rem "BF" |
|||
290 endif |
|||
300 next e |
|||
310 return |
|||
320 for f = lo to hi |
|||
330 if (( not unique) or ((f <> a) and (f <> c) and (f <> d) and (f <> g) and (f <> e))) then gosub 360 |
|||
340 next f |
|||
350 return |
|||
360 b = e+f-c |
|||
370 if ((b >= lo) and (b <= hi) and (( not unique) or ((b <> a) and (b <> c) and (b <> d) and (b <> g) and (b <> e) and (b <> f)))) then |
|||
380 s = s+1 |
|||
390 if (show) then print a " " b " " c " " d " " e " " f " " g |
|||
400 endif |
|||
410 return</syntaxhighlight> |
|||
{{out}} |
|||
<pre>>run |
|||
4 7 1 3 2 6 5 |
|||
6 4 1 5 2 3 7 |
|||
3 7 2 1 5 4 6 |
|||
5 6 2 3 1 7 4 |
|||
7 3 2 5 1 4 6 |
|||
4 5 3 1 6 2 7 |
|||
6 4 5 1 2 7 3 |
|||
7 2 6 1 3 5 4 |
|||
8 UNIQUE SOLUTIONS IN 1 TO 7 |
|||
7 8 3 4 5 6 9 |
|||
8 7 3 5 4 6 9 |
|||
9 6 4 5 3 7 8 |
|||
9 6 5 4 3 8 7 |
|||
4 UNIQUE SOLUTIONS IN 3 TO 9 |
|||
2860 NON-UNIQUE SOLUTIONS IN 0 TO 9</pre> |
|||
=={{header|Clojure}}== |
=={{header|Clojure}}== |