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>
11 lines
179 B
QBasic
11 lines
179 B
QBasic
10 N# = 5
|
|
20 RESULT# = 1
|
|
30 GOSUB 100
|
|
40 PRINT "FACTORIAL(5) IS " + RESULT#
|
|
50 QUIT
|
|
100 IF N# <= 1 THEN RETURN
|
|
110 RESULT# = RESULT# * N#
|
|
120 N# = N# - 1
|
|
130 GOSUB 100
|
|
140 RETURN
|