Anonymous user
Execute SNUSP/Tcl: Difference between revisions
m
→Modular SNUSP: bugfix
m (→Core SNUSP: bugfix) |
m (→Modular SNUSP: bugfix) |
||
Line 184:
"-" {Set [expr [Get]-1]}
"." {puts -nonewline [format %c [set last [Get]]]}
"," {Set [scan [read stdin 1] %s]}
"@" {Push}
"#" {Pop}
Line 191:
}
if {$last != 10} {puts ""}</lang>
==Bloated [[SNUSP]]==
<lang tcl>package require Tcl 8.5
|