RosettaCodeData/Task/Array-length/ALGOL-68/array-length.alg

mirror of https://github.com/acmeism/RosettaCodeData.git
# UPB returns the upper bound of an array, LWB the lower bound #
[]STRING fruits = ( "apple", "orange" );
print( ( ( UPB fruits - LWB fruits ) + 1, newline ) ) # prints 2 #
	`# UPB returns the upper bound of an array, LWB the lower bound #`
	`[]STRING fruits = ( "apple", "orange" );`
	`print( ( ( UPB fruits - LWB fruits ) + 1, newline ) ) # prints 2 #`