mirror of
https://github.com/Noratrieb/idris-learning.git
synced 2026-01-14 21:15:02 +01:00
11 lines
185 B
Idris
11 lines
185 B
Idris
module Brainfuck
|
|
|
|
import Data.Vect
|
|
|
|
data Memory = End
|
|
| Value Memory Int Memory
|
|
|
|
|
|
emptyMemory : Nat -> Memory
|
|
emptyMemory Z = End
|
|
emptyMemory S(k) = Value 0 (emptyMemory k)
|