aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Introspection/Retro/introspection-1.retro Normal file
View file

@ -0,0 +1 @@
@Version #201906 lt+ &bye if

9
Task/Introspection/Retro/introspection-2.retro Normal file
View file

@ -0,0 +1,9 @@
Checks for existence of "bloop" and "n:abs"
~~~
: executeByName (s-)
d:lookup [ d:xt fetch ] [ d:class fetch ] bi call ;
'bloop 'n:abs [ find nip ] bi@ and
[ 'bloop executeByName 'n:abs executeByName ] if
~~~

1
Task/Introspection/Retro/introspection-3.retro Normal file
View file

@ -0,0 +1 @@
#0 #0 [ dup d:class fetch &class:integer eq? [ d:xt fetch + [ n:inc ] dip ] [ drop ] choose ] d:for-each