Execute SNUSP/F Sharp: Difference between revisions
Content added Content deleted
m (apply a little magic) |
|||
| Line 1: | Line 1: | ||
{{implementation|SNUSP}}{{collection|RCSNUSP}}[[Category:F Sharp]] |
{{implementation|SNUSP}}{{collection|RCSNUSP}}[[Category:F Sharp]] |
||
This is the "modular" version. Perhaps I'll get around to bloated later. Allows infinite size data space to the left and right of the original data pointer. I originally mistook the meaning of ',' and had the user input an arbitrary number which I would place on the tape, but after looking at the sample multiplication program, realized that I was supposed to input the ascii value of the single key entered. Still, it seems like a good command to allow for reading an arbitrary value so I arbitrarily allocated '~' as the command for that purpose. |
This is the "modular" version. Perhaps I'll get around to bloated later. Allows infinite size data space to the left and right of the original data pointer. I originally mistook the meaning of ',' and had the user input an arbitrary number which I would place on the tape, but after looking at the sample multiplication program, realized that I was supposed to input the ascii value of the single key entered. Still, it seems like a good command to allow for reading an arbitrary value so I arbitrarily allocated '~' as the command for that purpose. |
||
Bloated version below this modular version. Somehow this page has been set up so I can't seem to change the original comments to note this fact. Probably I'm just too dumb to know now. |
Bloated version below this modular version. Somehow this page has been set up so I can't seem to change the original comments to note this fact. Probably I'm just too dumb to know now. |
||
<br clear=all> |
|||
==Program== |
|||
<lang fsharp>open System |
<lang fsharp>open System |
||
open System.Collections.Generic |
open System.Collections.Generic |
||