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

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1 +1 @@
version ^strings'splitAtChar: . drop toNumber 3 < &bye ifTrue
@Version #201906 lt+ &bye if

10
Task/Introspection/Retro/introspection-2.retro
View file

@ -1 +1,9 @@
build toNumber 1309798464 < &bye ifTrue
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
~~~

7
Task/Introspection/Retro/introspection-3.retro
View file

@ -1,6 +1 @@
( Checks for existance of "bloop" and "abs" )
: executeByName ( $- )
find drop [ @d->xt ] [ @d->class ] bi withClass ;
"bloop" "abs" [ find nip ] bi@ and
[ "bloop" executeByName "abs" executeByName ] ifTrue
#0 #0 [ dup d:class fetch &class:integer eq? [ d:xt fetch + [ n:inc ] dip ] [ drop ] choose ] d:for-each