Anonymous user
Odd word problem: Difference between revisions
Add Seed7 example
(Added an Algol 68 sample) |
(Add Seed7 example) |
||
Line 1,594:
(exit)
(loop (not i))))</lang>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
include "chartype.s7i";
const func char: doChar (in boolean: doReverse) is func
result
var char: delimiter is ' ';
local
var char: ch is ' ';
begin
ch := getc(IN);
if ch in letter_char then
if doReverse then
delimiter := doChar(doReverse);
write(ch);
else
write(ch);
delimiter := doChar(doReverse);
end if;
else
delimiter := ch;
end if;
end func;
const proc: main is func
local
var char: delimiter is ' ';
var boolean: doReverse is FALSE;
begin
repeat
delimiter := doChar(doReverse);
write(delimiter);
doReverse := not doReverse;
until delimiter = '.';
writeln;
end func;</lang>
{{out}}
<pre>
> s7 oddWordProblem
SEED7 INTERPRETER Version 5.0.5203 Copyright (c) 1990-2014 Thomas Mertes
what,is,the;meaning,of:life.
what,si,the;gninaem,of:efil.
</pre>
=={{header|Tcl}}==
| |||