Infinity-Profan

Deutsch

HofK

Besonders effizient sind oftmals polymorphe Prozeduren.
Das funktioniert bei Infinity-Profan ganz einfach.

Gestern am 24.02. schrieb ich noch:
_________________________________________________________
Wenn dann irgendwann noch ein Sonderzeichen für var( ) wie °a übrigbleiben sollte wäre es superzumquadrat!
_________________________________________________________

und heute schon konnte ich var(a) durch °a ersetzen!

Kompilieren Markieren Separieren


// polymorphe Prozedur

print poly 8  3  
print poly "Nur diese Zeichenkette wurde übergeben!" 
print poly "Text mit Zahl"  7 
print poly "Text mit Zahl"  2.71 
print poly "Text-Zahl-Wahrheitswert " 1998  true
print poly 2  4  2.8    // keine gültige Parameterliste für poly

proc poly a b c 
  //  Prüfung Typ bzw. welche Parameter vorhanden
  if °a=="long" && °b=="long" && c==null
    return "long-long-null-> Das Ergebnis a-2*b ist: " + (a-2*b) 
  elseif °a=="string" && b==null && c==null    
    return a
  elseif °a=="string" && (°b=="long" || °b=="float") && c==null
    if °b=="long"
      return "Übergabe: 1. Parameter Zeichenkette, 2. Parameter ganze Zahl"
    endif
    if °b=="float"
      return "Übergabe: 1. Param. ist Zeichenkette, 2. Parameter Dezimalzahl"
    endif
   elseif °a=="string" && (°b=="long" || °b=="float") && °c=="bool"
     return "Parameterübergabe: 1. Zeichenkette, 2. Zahl, 3. Wahrheitswert"
  else
    return "Sicher falsche Parameter angegeben ??? "       
  endif  
endproc