Mercurial > repo

view interps/cfunge/cfunge-src/tests/refc-invalid-deref.b98 @ 12500:e48c08805365 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> ` learn \'The password of the month is Cthulhuquagdonic Mothraquagdonic Narwhalicorn.\' # https://logs.esolangs.org/libera-esolangs/2024-04.html#lKE Infinite craft
author HackEso <hackeso@esolangs.org>
date Wed, 01 May 2024 06:39:10 +0000
parents 859f9b4339e6
children
line wrap: on
line source

v >0a"CFER oN" >:#,_@            ; This program tests invalid D in REFC ;
>#^"CFER"4(nv
v           <
>1. #v 0D  "DAB" >:#,_  @        ; Derefence 0 ;
     >a"DOOG">:#,_v
v                 <


>2. #v 01-D  "DAB" >:#,_  @      ; Derefence negative ;
     >a"DOOG">:#,_v
v                 <


>3. 45+ #v D  "DAB" >:#,_  @     ; Derefence postive ;
         >a"DOOG">:#,_v
v                     <


>4. #v nD  "DAB" >:#,_  @        ; Derefence on empty stack ;
     >a"DOOG">:#,_v
v                 <

a                                ; That's all ;
,
@