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

18
Task/Identity-matrix/Elena/identity-matrix.elena
View file

@ -1,14 +1,14 @@
#import system.
#import extensions.
#import system'routines.
#import system'collections.
import extensions.
import system'routines.
import system'collections.
#symbol program=
program =
[
#var n := console write:"Enter the matrix size:" readLine toInt.
var n := console write:"Enter the matrix size:"; readLine; toInt.
#var identity := n repeat &each: i = [ n repeat &each: j = [ (i == j)iif:1:0 ] summarize:(ArrayList new) ] summarize:(ArrayList new).
var identity := 0 till:n repeat(:i)( 0 till:n repeat(:j)( (i == j)iif(1,0) ); summarize(ArrayList new) );
summarize(ArrayList new).
identity run &each:
row = [ console writeLine:row ].
identity forEach
(:row) [ console printLine:row ].
].