Initial Commit
This commit is contained in:
30
main.bf
Normal file
30
main.bf
Normal file
@@ -0,0 +1,30 @@
|
||||
[All data is stored in chunks of 2 bytes/cells: the first cell is the type and the second cell is the data.
|
||||
|
||||
For example: The integer 27 would be stored as | 1 | 27 | 0 | 0 |. Note the double zero at
|
||||
the end of the data.]
|
||||
|
||||
# Get the first input by the user and check its type
|
||||
,[-------------------------------------------------------------------------------------------------------------------
|
||||
$$$ Cells: | subtract $input 115 |
|
||||
[ If $input !== 's'
|
||||
++++[ If $input !== 'o'
|
||||
|
||||
]
|
||||
>+<[>-]>[ If $input === 'o'
|
||||
$$$ Cells: | 0 | (1) | ~~~~ | data
|
||||
|
||||
]
|
||||
|
||||
]
|
||||
>+<[>-]>[ If $input === 's' (direct translation: set up else flag; if subtract $input s:ascii !== 0 remove else flag)
|
||||
$$$ Cells: | 0 | (1) |
|
||||
Actual Data starts at cell #10: go to cell 10 then continue to next un
|
||||
>>>>>>>>>>>[[>>]>>]<[-]---------- Subtract 10 to calibrate loop
|
||||
[++++++++++>[-]+++>, Start loop; add 10 (to undo the end of loop and add data)
|
||||
---------- Check if input is 10 (newline)
|
||||
]
|
||||
]<[-]
|
||||
If $input = s : $$$ | 0 | 1 | ~~~~ | 3 | char1 | 3 | char2 | ~~~~ | 3 | charlast | (0) | 0 |
|
||||
If $input != s: $$$ | subtract $input 115 | 0 | (0) |
|
||||
Realign Cursor
|
||||
<[[[<]<]>[<]>[<]>[<]>[<]>[<]>[<]>[<]>[<]>[<]>[<]<<]<<<<<<<<[-]<,]
|
Reference in New Issue
Block a user