Generate lower case ASCII alphabet: Difference between revisions

Content added Content deleted

Inline

@@ Line 725: / Line 725: @@
 =={{header|Comal}}==
 <lang comal>dim alphabet$ of 26
+for i := 1 to 26
-dim letter$ of 1
+  alphabet$(i) := chr$(ord("a") - 1 + i)
-for i := 0 to 25
-  letter$ := chr$(ord("a") + i)
-  alphabet$ := alphabet$ + letter$
 endfor i
 print alphabet$</lang>