Execute Brain****/F Sharp: Difference between revisions
Content added Content deleted
(Created page with '{{implementation|Brainf***}}{{collection|RCBF}}Category:F Sharp <br clear=all/> <lang fsharp>open System open System.Collections.Generic let Rcbf (pgmStr : string) (input : …') |
m (add horizontal scrolling) |
||
Line 1: | Line 1: | ||
{{implementation|Brainf***}}{{collection|RCBF}}[[Category:F Sharp]] |
{{implementation|Brainf***}}{{collection|RCBF}}[[Category:F Sharp]] |
||
<br clear=all/> |
<br clear=all/> |
||
<lang fsharp>open System |
<div style='width: full; overflow: scroll'><lang fsharp>open System |
||
open System.Collections.Generic |
open System.Collections.Generic |
||
Line 50: | Line 50: | ||
while !ip >= 0 && !ip < pgm.Length do |
while !ip >= 0 && !ip < pgm.Length do |
||
interpretCmd()</lang> |
interpretCmd()</lang></div> |
||
Hello world in RCBF (stolen from the Wiki site): |
Hello world in RCBF (stolen from the Wiki site): |
||
<lang fsharp>let pgmHelloWorld = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>." |
<div style='width: full; overflow: scroll'><lang fsharp>let pgmHelloWorld = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>." |
||
let tape = Array.create 5 0 |
let tape = Array.create 5 0 |
||
Rcbf pgmHelloWorld tape</lang> |
Rcbf pgmHelloWorld tape</lang></div> |