Execute SNUSP/F Sharp: Difference between revisions

{{implementation|SNUSP}}{{collection|RCSNUSP}}[[Category:F Sharp]]

This is the [[F Sharp|F#]] implementation of 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 '<code>,</code>' 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 '<code>~</code>' as the command for that purpose.

===Modular SNUSP===

<langsyntaxhighlight lang="fsharp">open System

(!input).[!ptr]</langsyntaxhighlight>

===Bloated SNUSP===

Okay, I did the bloated version and made a few other changes. Using <code>*</code> rather than <code>~</code> for inputting a number because it's easy for <code>~</code> to get lost in the visual sea of characters that makes up the typical program. Also made separate classes for the engine and the IP. I allow for infinite data space in both directions and threads not waiting for input run while other threads are blocked on input. I tried this on all the programs I could find. There don't appear to be any which really utilize the 2D data space, but I tested it with some simple test programs and it seems okay.

<langsyntaxhighlight lang="fsharp">// Bloated RCSNUSP

snusp.ReturnValue() // Return the return value</syntaxhighlight>

===Example Inputs===

<langsyntaxhighlight lang="fsharp">let p1 = @"

printfn "value = %d" (RCSNUSP @"6=@@@+@+++++#")</syntaxhighlight>