Hobby BASIC
1.9.1
Ένα νέο update στον διερμηνευτή.
Προστέθηκε η δυνατότητα COMPARE για την σύγκριση δύο διατάξεων.
Κώδικας:
! a[].ZERO ! array zero
! a[].SHUFFLE ! array shuffle
! a[].REVERSE ! array reverse
! a[].COPY b[] ! copy array b to array a
! a[].SWAP b[] ! swap entite arrays
! a[].COMPARE b[] ! returns zero on success in V0
! a[].FILL value ! fill array with identical values
! a[].RAND max ! fill with random values (0 to max-1)
! a[].SET start ! sets consecutive values to the array
! a[].DELETE idx [,...] ! delete values from array
! a[].INSERT idx,v [,...] ! insert values to array
! a[].SORTA ! integer array sort ascending
! a[].SORTD ! integer array sort descending
! a[].SETV ! array dimensions in V0 V1 V2
Το παράδειγμα ανακατεύει και συγκρίνει συνεχώς δύο διατάξεις με ίδια στοιχεία.
Κώδικας:
view 11
screen 80,30,9999
color 0,8
cls
MAX = 4
dim a[MAX]
dim b[MAX]
a[].SET 1 ! initialize array values 1,2,..MAX
b[].COPY a[]
n = 0
while ~KEY(27)
n = n + 1
a[].SHUFFLE
b[].SHUFFLE
a[].COMPARE b[] ! zero on success in V0
if V0 = 0
pen 7 : print : print n,": Arrays match !" : print
for i = 0 to MAX-1
print "a[",i,"]=",a[i]," and b[",i,"]=",b[i]
next
pen 8 : print : pause
print : n = 0
else
print n,": Arrays don''t match"
endif
endw
end
Με MAX=4, δηλαδή τους αριθμούς 1,2,3,4 ανακατεμένους στην κάθε διάταξη, γρήγορα συμβαίνει match.
Με MAX=10 οι πιθανοί συνδυασμοί κάθε διάταξης είναι 10! = 10×9×8×7×6×5×4×3×2×1 =
3,628,800.
Μετά από 2012968 συγκρίσεις...
Σύγκριση μπορεί να γίνει και σε διατάξεις συμβολοσειρών.
Κώδικας:
view 11
screen 80,30,9999
color 0,8
cls
MAX = 5
dim a$[MAX] = "hello","i love you","won''t you","tell me","your name"
dim b$[MAX]
b$[].COPY a$[]
n = 0
while ~KEY(27)
n = n + 1
a$[].SHUFFLE
b$[].SHUFFLE
a$[].COMPARE b$[]
if V0 = 0
pen 7 : print : print n,": Arrays match !" : print
for i = 0 to MAX-1
print "a$[",i,"]=",a$[i]," and b$[",i,"]=",b$[i]
next
pen 8 : print : pause
print : n = 0
else
print n,": Arrays don''t match"
endif
endw
end
Τα νέα της Hobby BASIC.
Πρόσθεσα 10 επιπλέον δωμάτια στο
Ledix ανεβάζοντας τον αριθμό σε 34.
Όπως και οι προηγούμενα γρίφοι, ανήκουν στον Yoshio Murase.
Διάβαζα εχθές το
Retro Gaming Handhelds και θυμήθηκα μια Formula που είχα πολύ μικρός, αρχές των 80s.
Σκέφτηκα να γράψω ένα μικρό game στην Hobby BASIC, κάτι πολύ απλό, που να έχει Game And Watch feeling.
Έβαλα ένα επιπλέον task, να το κάνω σε 50 γραμμές κώδικα. Αλλιώς το παρατάω.
Ξεκίνησα στις 3 το πρωί και στις 6 το πρωί ήταν έτοιμο.
Ακριβώς 50 γραμμές, αν αφαιρέσω 5 γραμμές για τον ήχο.
To screenshot που βλέπετε είναι η κονσόλα των Windows 10.
Θα τo βρείτε στον φάκελο EXAMPLES/GAMES/FORMULA1.BAS.
Have fun with
Hobby BASIC.
