Logikoma
8a02674af5
All checks were successful
akbasic CI Build / cmake_build (push) Successful in 3m34s
akbasic CI Build / coverage (push) Successful in 4m4s
akbasic CI Build / sanitizers (push) Successful in 6m59s
akbasic CI Build / akgl_build (push) Successful in 7m57s
akbasic CI Build / mutation_test (push) Successful in 23m28s
Move every program and expectation out of tests/reference and register the unified tests/language corpus as local cases. Remove the old immutable-corpus protections from build, maintenance, and documentation paths. Co-authored-by: andrew <andrew@aklabs.net>
7 lines
211 B
QBasic
7 lines
211 B
QBasic
10 DEF SQR(X#) = X# * X#
|
|
20 DEF MUL(X#, Y#) = X# * Y#
|
|
30 A# = SQR(3)
|
|
40 B# = MUL(A#, 4)
|
|
50 IF A# <> 9 THEN PRINT "SQR FAIL" ELSE PRINT "SQR PASS"
|
|
60 IF B# <> 36 THEN PRINT "MUL FAIL" ELSE PRINT "MUL PASS"
|