You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
186 B
14 lines
186 B
3 years ago
|
let
|
||
|
|
type Str ~ array 10 of Char;
|
||
|
|
|
||
|
|
func replicate (c: Char): Str ~
|
||
|
|
[c,c,c,c,c,c,c,c,c,c];
|
||
|
|
|
||
|
|
var s: Str
|
||
|
|
in
|
||
|
|
|
||
|
|
begin
|
||
|
|
s := replicate('*');
|
||
|
|
put (s[0]); put(s[9]); puteol()
|
||
|
|
end
|