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-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

42
Task/Arrays/FutureBasic/arrays.basic
View file

@ -1,8 +1,8 @@
window 1, @"FutureBasic Arrays", (0,0,480,450)
begin globals
dynamic gA1(10) as long
dynamic gA2(10) as Str255
dynamic gA1(10) as long
dynamic gA2(10) as Str255
end globals
void local fn CType
@ -11,12 +11,7 @@ void local fn CType
text ,, fn ColorGray
print @"// C-type fixed-length"
text
long a1(4)
a1(0) = 10
a1(1) = 5
a1(2) = 12
a1(3) = 8
a1(4) = 7
long a1(4) = {10,5,12,8,7}
for i = 0 to 4
print a1(i),
next
@ -30,12 +25,7 @@ void local fn CType
next
print
CFStringRef a2(4)
a2(0) = @"Alpha"
a2(1) = @"Bravo"
a2(2) = @"Tango"
a2(3) = @"Delta"
a2(4) = @"Echo"
CFStringRef a2(4) = {@"Alpha",@"Bravo",@"Tango",@"Delta",@"Echo"}
for i = 0 to 4
print a2(i),
next
@ -111,32 +101,27 @@ void local fn CoreFoundationMutableFixedLength
print @"// CoreFoundation (CF) mutable, fixed-length"
text
CFMutableArrayRef a1 = fn MutableArrayWithCapacity(3)
MutableArrayAddObject( a1, @79 )
MutableArrayAddObject( a1, @43 )
MutableArrayAddObject( a1, @101)
a1[0] = @79 : a1[1] = @43 : a1[2] = @101
for i = 0 to len(a1) - 1
print a1[i],
next
print
MutableArrayReplaceObjectAtIndex( a1, @15, 2 )
a1[2] = @15
for i = 0 to len(a1) - 1
print a1[i],
next
print
CFMutableArrayRef a2 = fn MutableArrayWithCapacity(4)
MutableArrayAddObject( a2, @"Whisky" )
MutableArrayAddObject( a2, @"Oscar" )
MutableArrayAddObject( a2, @"Yankee" )
MutableArrayAddObject( a2, @"Sierra" )
a2[0] = @"Whisky" : a2[1] = @"Oscar" : a2[2] = @"Yankee" : a2[3] = @"Sierra"
for i = 0 to len(a2) - 1
print a2[i],
next
print
MutableArrayReplaceObjectAtIndex( a2, @"Xray", 1 )
MutableArrayReplaceObjectAtIndex( a2, @"Zulu", 3 )
a2[1] = @"Xray"
a2[3] = @"Zulu"
for i = 0 to len(a2) - 1
print a2[i],
next
@ -158,8 +143,8 @@ void local fn CoreFoundationMutableDynamic
next
print
MutableArrayReplaceObjectAtIndex( a1, @"Foxtrot", 0 )
MutableArrayReplaceObjectAtIndex( a1, @"Hotel", 2 )
a1[0] = @"Foxtrot"
a1[2] = @"Hotel"
for i = 0 to len(a1) - 1
print a1[i],
next
@ -174,10 +159,7 @@ void local fn FB_MDA
print @"// FB MDA - mutable, dynamic, multi-dimensional"
text
mda_add = @"Alpha"
mda_add = @"Romeo"
mda_add = @"Mike"
mda() = {@"Alpha",@"Romeo",@"Mike"}
for i = 0 to mda_count - 1
print mda(i),
next