Bulls and cows: Difference between revisions

<syntaxhighlight lang="text">

h = i - 1 + randomrandint (10 - i)

swap dig[i] dig[h]

repeat

ok = 0

s$[] = strchars input

if len s$[] = 4

ok = 1

for i = 1 to 4

g[i] = number s$[i]

if g[i] = 0

ok = 0

.

. until ok = 1

attempts +bulls = 10

bulls cows = 0

cows for i = 01 to 4

for i = 1 toif 4g[i] = dig[i]

if g[i] bulls += dig[i]1

bulls += 1else

for j = 1 to 4 if dig[j] = g[i]

if dig[j] cows += g[i]1

cows += 1.

.

.

print "bulls:" &until bulls & " cows:" &= cows4

print "Well done! " & attempts & " attempts needed."</syntaxhighlight>