25 lines
1.3 KiB
Text
25 lines
1.3 KiB
Text
sub s1() return len(s$)=12 end sub
|
|
sub s2() local t, i : t=0 : for i=7 to 12 : t = t + (mid$(s$, i, 1) <> "0") : next : return t=3 end sub
|
|
sub s3() local t, i : t=0 : for i=2 to 12 step 2 : t = t + (mid$(s$, i, 1) <> "0") : next : return t=2 end sub
|
|
sub s4() return mid$(s$, 5, 1) = "0" or (mid$(s$, 6, 1) <> "0" and mid$(s$, 7, 1) <> "0") end sub
|
|
sub s5() return mid$(s$, 2, 1) = "0" and mid$(s$, 3, 1) = "0" and mid$(s$, 4, 1) = "0" end sub
|
|
sub s6() local t, i : t=0 : for i=1 to 12 step 2 : t = t + mid$(s$, i, 1) <> "0" : next : return t=4 end sub
|
|
sub s7() return mid$(s$, 2, 1) <> mid$(s$, 3, 1) end sub
|
|
sub s8() return mid$(s$, 7, 1) = "0" or (mid$(s$, 5, 1) <> "0" and mid$(s$, 6, 1) <> "0") end sub
|
|
sub s9() local t, i : t=0 : for i=1 to 6 : t = t + mid$(s$, i, 1) <> "0" : next : return t=3 end sub
|
|
sub s10() return mid$(s$, 11, 1) <> "0" and mid$(s$, 12, 1) <> "0" end sub
|
|
sub s11() local t, i : t=0 : for i=7 to 9 : t = t + mid$(s$, i, 1) <> "0" : next : return t=1 end sub
|
|
sub s12() local t, i : t=0 : for i=1 to 11 : t = t + mid$(s$, i, 1) <> "0" : next : return t=4 end sub
|
|
|
|
dim r$(12)
|
|
|
|
for b=1 to 12
|
|
r$(b) = "s"+str$(b)
|
|
next
|
|
for i=0 to 2^12-1
|
|
s$ = right$("000000000000" + bin$(i), 12)
|
|
for b=1 to 12
|
|
if execute(r$(b)) <> (mid$(s$, b, 1) <> "0") break
|
|
if b=12 print s$
|
|
next
|
|
next
|