18 lines
402 B
Forth
Executable file
18 lines
402 B
Forth
Executable file
#! /usr/bin/env gforth
|
|
|
|
require lib.fs
|
|
require ../../lib/tap.fs
|
|
|
|
8 plan
|
|
|
|
s" (())" parse-instructions 0 = ok
|
|
s" ()()" parse-instructions 0 = ok
|
|
s" (((" parse-instructions 3 = ok
|
|
s" (()(()(" parse-instructions 3 = ok
|
|
s" ))(((((" parse-instructions 3 = ok
|
|
s" ())" parse-instructions -1 = ok
|
|
s" ))(" parse-instructions -1 = ok
|
|
s" )))" parse-instructions -3 = ok
|
|
s" )())())" parse-instructions -3 = ok
|
|
|
|
bye
|