curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-06-19 10:54:04 +09:00
Code Issues Packages Projects Releases Wiki Activity

basic update

Browse Source
This commit is contained in:
minjaesong
2021-01-05 10:30:27 +09:00
parent 5e3cbf7b2c
commit b73c000d43
4 changed files with 760 additions and 369 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
assets/disk0/home/basic/hangman.bas
View File

@@ -1,7 +1,8 @@
1 OPTIONBASE 1 1 OPTIONBASE 1
10 PRINT SPC(32);"HANGMAN" 10 PRINT SPC(32);"HANGMAN"
20 PRINT SPC(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT SPC(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 PRINT:PRINT:PRINT 21 PRINT:PRINT SPC(14);"EDITOR'S NOTE: ALWAYS TYPE IN CAPITAL LETTERS!"
25 PRINT:PRINT
30 PSTR=DIM(12,12):LSTR=DIM(20):DSTR=DIM(20):NSTR=DIM(26):U=DIM(50) 30 PSTR=DIM(12,12):LSTR=DIM(20):DSTR=DIM(20):NSTR=DIM(26):U=DIM(50)
40 C=1: N=50 40 C=1: N=50
50 FOR I=1 TO 20: DSTR(I)="-": NEXT: M=0 50 FOR I=1 TO 20: DSTR(I)="-": NEXT: M=0

2
assets/disk0/home/basic/qsort.bas
View File

@@ -1,5 +1,3 @@
1 REM qsort [] = []
2 REM qsort xs = qsort [x | x<-tail xs, x<head xs] ++ [head xs] ++ qsort [x | x<-tail xs, x>=head xs]
10 DEFUN LESS(P,X)=X<P 10 DEFUN LESS(P,X)=X<P
11 DEFUN GTEQ(P,X)=X>=P 11 DEFUN GTEQ(P,X)=X>=P
12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(LESS~<HEAD(XS),TAIL(XS))) # HEAD(XS)!NIL # QSORT(FILTER(GTEQ~<HEAD(XS),TAIL(XS))) 12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(LESS~<HEAD(XS),TAIL(XS))) # HEAD(XS)!NIL # QSORT(FILTER(GTEQ~<HEAD(XS),TAIL(XS)))

975
assets/disk0/tbas/basic.js
View File

File diff suppressed because it is too large Load Diff

13
assets/disk0/tbas/regex Normal file
View File

@@ -0,0 +1,13 @@
Nuke comments:
/\*[ -~\n]+?\*/|//[^\n]*
then do:
\n *\n+
replace into
\n
until there's no match left