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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-03-06 22:25:12 -08:00
parent ed705008a8
commit 0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Create-a-two-dimensional-array-at-runtime/EasyLang/create-a-two-dimensional-array-at-runtime.easy Normal file
View file

@ -0,0 +1,14 @@
write "Number of rows: "
nrows = number input
print nrows
write "Number of columns: "
ncols = number input
print ncols
#
len a[][] nrows
for i to nrows
len a[i][] ncols
.
a[1][1] = 11
print a[1][1]
len a[][] 0

2
Task/Create-a-two-dimensional-array-at-runtime/Elena/create-a-two-dimensional-array-at-runtime-1.elena
View file

@ -5,7 +5,7 @@ public program()
var n := new Integer();
var m := new Integer();
console.write:"Enter two space delimited integers:";
console.write("Enter two space delimited integers:");
console.loadLine(n,m);
var myArray := class Matrix<int>.allocate(n,m);

4
Task/Create-a-two-dimensional-array-at-runtime/Elena/create-a-two-dimensional-array-at-runtime-2.elena
View file

@ -6,10 +6,10 @@ public program()
auto n := new Integer();
auto m := new Integer();
console.write:"Enter two space delimited integers:";
console.write("Enter two space delimited integers:");
console.loadLine(n,m);
auto myArray2 := new object[][](n.Value).populate:(int i => (new object[](m.Value)) );
auto myArray2 := new object[][](n.Value).populate::(int i => (new object[](m.Value)) );
myArray2[0][0] := 2;
myArray2[1][0] := "Hello";

27
Task/Create-a-two-dimensional-array-at-runtime/Objeck/create-a-two-dimensional-array-at-runtime.objeck
View file

@ -1,23 +1,12 @@
use IO;
class TwoDimArray {
function : Main(args : String[]) ~ Nil {
rows := Standard->ReadLine()->ToInt();
cols := Standard->ReadLine()->ToInt();
bundle Default {
class TwoDee {
function : Main(args : System.String[]) ~ Nil {
DoIt();
}
function : native : DoIt() ~ Nil {
Console->GetInstance()->Print("Enter x: ");
x := Console->GetInstance()->ReadString()->ToInt();
Console->GetInstance()->Print("Enter y: ");
y := Console->GetInstance()->ReadString()->ToInt();
if(x > 0 & y > 0) {
array : Int[,] := Int->New[x, y];
array[0, 0] := 2;
array[0, 0]->PrintLine();
};
if(rows > 0 & cols > 0) {
array := Float->New[rows, cols];
array[0,0] := 42.0;
Standard->Print("The number at place [0,] is: ")->PrintLine(array[0,0]);
}
}
}