Simple Simon

[bplus]

Code: QB64: [Select]

1. _Title "Simple Simon"  'b+ 2021-06-27
2. Randomize Timer
3. While 1
4.     b$ = b$ + _Trim$(Str$(Int(Rnd * 4) + 1))
5.     For i = 1 To Len(b$)
6.         Cls
7.         Print Space$(i - 1); Mid$(b$, i, 1)
8.         _Delay 1
9.     Next
10.     Cls
11.     Print "Simon says repeat all that:"
12.     For i = 1 To Len(b$)
13.         k$ = InKey$
14.         While k$ = ""
15.             k$ = InKey$
16.         Wend
17.         Print k$;
18.         If k$ <> Mid$(b$, i, 1) Then
19.             Beep
20.             Print
21.             Print b$
22.             Exit While
23.         End If
24.     Next
25. Wend

No Double Parking (with colons)

[Juan Tamarit]

Very impressive, bro. WHILE 1 is a very interesting line, since you are leaving with an EXIT, very clever. Im interested in the double check of INKEY$. Can you explain me why this was needed? It always was hard to me to get the difference between WHILEs and LOOPs.

Cheers bro.

[Dav]

Pretty compact one!  I was trying to shorten it more though for fun, using k$ = INPUT$(1) gained 3 lines (can ditch WHILE/INKEY$/WEND after).

Makes me remember a childhood song/poem called 'Simple Simon'.  Hadn't thought of that in years.

- Dav

[bplus]

@Juan Tamarit

Looks like Dav has pointed to a better method for getting a keypress than

Code: QB64: [Select]

1.         k$ = InKey$
2.         While k$ = ""
3.             k$ = InKey$
4.         Wend
5.  

so all the above does is get a keypress that something as opposed to nothing...

Thanks both of you :)

[FellippeHeitor]

Now that's minimalistic. Interestingly, with numbers I got much farther than with colors/sounds. We are probably more wired to make logical connections with them.

[bplus]

Now that's minimalistic. Interestingly, with numbers I got much farther than with colors/sounds. We are probably more wired to make logical connections with them.

Yeah numbers hold patterns, not sure alphabetic characters would hold up as well.

@FellippeHeitor thanks for inspiration from Genius.