Bonjour
donc voilà le code en GFORTH capable d'interpréter du BrainFuck
: array create 0 do 0 , loop does> swap cells + ;
0 value str
0 value size
variable pos
30000 array mem
variable cur
\ helpers
: incr 1 swap +! ;
: decr -1 swap +! ;
: goto 1- pos ! ;
: cur-char str pos @ + c@ ;
: mem-null? cur @ mem @ 0= ;
: end-of-loop? cur-char [char] ] = ;
(…)