June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue