[linux-l] Re: C++ - <vector> ...

[Oliver Bandel]

On Wed, Jun 01, 2005 at 01:29:24PM +0200, Oliver Bandel wrote:
> On Wed, Jun 01, 2005 at 11:06:51AM +0000, Rocco Rutte wrote:
> > Hi,
> > 
> > * Oliver Bandel [05-06-01 00:14:40 +0200] wrote:
[...]
> > Weil ich mir die von dir erwähnte Language-Shootout-Seite mal angeguckt 
> > habe und es gerade passt: man soll Code in $sprache schreiben, der 
> > Zeilen von stdin liest und rückwärts auf stdout ausgibt.
> > 
> > Wenn man mal von main() und den Opal-Include-Äquivalenten absieht, ist 
> > der vollständige Code der:
> > 
> > | FUN reversefile : com[void]
> > | DEF reversefile ==
> > |     readLines (stdIn) & (\\lines.writeLines (stdOut, revert (lines)))
> 
> sieht ja schnuckelig aus.
> 

[...]
> Der OCaml-Code, den der Autor dort eingebracht hat
> scheint mir irgendwie etwas aufgebläht zu sein.
> Sollte auch wesentlkich kürzer machbar sein.
[...]


So geht das z.B.:


let _ =
let st = Stack.create () in
  try
    while true do
      Stack.push (read_line()) st
    done
  with End_of_file -> Stack.iter print_endline st



Ciao,
   Oliver