June 2018 Update

This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions

View file

@ -1,9 +1,14 @@
$ <i>gforth</i>
$ gforth
Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
<i>: f ( separator suffix prefix -- )</i> compiled
<i>pad place 2swap 2dup pad +place pad +place pad +place</i> compiled
<i>pad count ;</i> ok
<i>s" :" s" Code" s" Rosetta" f cr type</i>
ok
: f ( separator suffix prefix -- ) compiled
pad place 2swap 2dup compiled
pad +place compiled
pad +place compiled
pad +place compiled
pad count ; ok
ok
s" :" s" Code" s" Rosetta" f cr type
Rosetta::Code ok

View file

@ -0,0 +1,9 @@
public static void main(String[] args) {
System.out.println(concat("Rosetta", "Code", ":"));
}
public static String concat(String a, String b, String c) {
return a + c + c + b;
}
Rosetta::Code

View file

@ -2,7 +2,7 @@ $ irb
irb(main):001:0> def f(string1, string2, separator)
irb(main):002:1> [string1, '', string2].join(separator)
irb(main):003:1> end
=> nil
=> :f
irb(main):004:0> f('Rosetta', 'Code', ':')
=> "Rosetta::Code"
irb(main):005:0> exit