Programmiersprachen vergleichen durch einfache Programme

[Reaperman]

Ich hab hier noch son bisschen was schönes gemacht:

Code:

#!perl

print "Hallo Welt.\n";
print "Bitte erste Zahl eingeben: ";
chomp($a = <STDIN>);
print "Bitte zweite Zahl eingeben: ";
chomp($b = <STDIN>);
do {
  print "Bitte Operation waehlen + - * / ";
  $operator = <STDIN>
} until $operator =~ /[\+\-\*\/]/;

print "$a $& $b = ", eval("$a$&$b");
print "\nDanke fuer die Benutzung. Zum Beenden Enter druecken";
<STDIN>

Jetzt nurnoch 370bytes groß, allerdings noch ohne Features.

Noch was feines, was als "Abfallprodukt" bei der Bearbeitung rumkam (die Extremversion des HalloWelt-Rechners[260bytes], jetzt mit Tribut an die Ausmaße)

Code:

#!perl

print "Hallo Welt.\n";
print "Bitte eine Rechenaufgabe eingeben. "
print "Erlaubt sind + - * / () ^ sqrt()\n";
chomp($a = <STDIN>);

$b = $a;
$a =~ s/\^/**/;

print "$b = ", eval("$a");
print "\nDanke fuer die Benutzung. Zum Beenden Enter druecken";
<STDIN>

[edit]
Noch ein Paar Anmerkungen zu der Pascal-Version:
Ich hätte op als [1] von dem eingelesenen definiert, und dann, da das Ergebnis vom Typ char ist, nen case drübergejagt. Außerdem hätte die Schleife durch "until op in ['+', '-', '*', '/']" kürzer terminiert werden können (wobei ich nicht weiß, welches laufzeittechnisch günstiger ist), nur mal so als Vorschlag[/edit]