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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/Catamorphism/Elena/catamorphism.elena
View file

@ -1,18 +1,17 @@
#import system.
#import system'collections.
#import system'routines.
#import extensions.
#import extensions'text.
import system'collections.
import system'routines.
import extensions.
import extensions'text.
#symbol program =
program =
[
#var numbers := 1 repeat &till:10 &each:n [ n ] summarize:(ArrayList new).
var numbers := 1 repeat till:10 each(:n)( n ); summarize(ArrayList new).
#var summary := numbers accumulate:(Variable new:0) &with:(:a:b) [ a + b ].
var summary := numbers accumulate(Variable new:0) with(:a:b)( a + b ).
#var product := numbers accumulate:(Variable new:1) &with:(:a:b) [ a * b ].
var product := numbers accumulate(Variable new:1) with(:a:b)( a * b ).
#var concatenation := numbers accumulate:(String new) &with:(:a:b) [ a literal + b literal ].
var concatenation := numbers accumulate(String new) with(:a:b)( a literal + b literal ).
console writeLine:summary:" ":product:" ":concatenation.
console printLine(summary," ",product," ",concatenation).
].