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

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 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 ^strings'splitAtChar: . drop toNumber 3 < &bye ifTrue

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

@ -0,0 +1 @@
build toNumber 1309798464 < &bye ifTrue

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

@ -0,0 +1,6 @@
( 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

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

@ -0,0 +1 @@
0 0 last [ dup @d->class &.integer = [ @d->xt @ + [ 1+ ] dip ] [ drop ] if ] ^types'LIST each@