"Konvertierung" in einer Gleichung (Allgemeines zu Perl)

[thread]16606[/thread]

"Konvertierung" in einer Gleichung

Tags: perl5 Java Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
meowi

2011-08-06 19:11

User since
2011-08-06
3 Artikel
BenutzerIn

Hallo,
ich habe ein Problem beim Lösen einer Gleichung. Hierbei sollen Teile der Gleichung als "int" und andere Teile als "BigNum" dargestellt werden.

[JavaCode]
long foo = 5752686569725511177L + (32 * 32 * 4987142)
Ergibt: 5752686568678008329 (dieses Ergebnis will ich haben :))

[JavaCode]
long foo = 5752686569725511177L + (32 * 32 * 4987142L)
Ergibt: 5752686590152844809

Mein Problem ist nun die Realisierung von dieser Gleichung in Perl. Hat vllt. jemand eine Idee, wie ich dies Bewerkstelligen kann?
Wenn ich bignum einbinde, bekomme ich (wie erwartet) das 2te Ergebnis.
Last edited: 2011-08-06 19:13:06 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-08-06 19:17
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Ich kann es gerade nicht testen, aber solltest du nicht bigint anstatt bignum verwenden?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - meowi
    
    2011-08-06 19:53
    
    User since
    2011-08-06
    3 Artikel
    BenutzerIn
    
    Dies sollte egal sein.
- +2 replies
- topeg
  
  2011-08-06 22:47
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Soweit ich das sehe ist das Problem dass bei int (32 Bit) Eine Zahl über ((2**32)/2)-1 als negative Zahl größer gleich -(2**32)/2 dargestellt wird und umgekehrt.
  Das ist auf einem 64bit System anderes (zumindest in allen Compilersprachen) das da ist int eine 64 Bit Zahl und die Grenze ist ((2**64)/2)-1
  
  Willst du dieses verhalten simulieren musst du nach jeder Rechung schauen wann die Zahl kleiner als -(2**32)/2 ist und wann größer als ((2**32)/2)-1, und den Wert negieren.
  
  ungetestet und unsicher ob das so richtig ist:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  sub as_int { my $x=shift; # nur 32 Bit $x=($x%2**32)*($x>0?1:-1); # Übergang bestimmen if($x < ((2**32)/2)*-1 || $x > ((2**32)/2)-1) { $x*=-1; } return x; }
  
  Last edited: 2011-08-06 22:49:21 +0200 (CEST)
  - meowi
    
    2011-08-07 11:01
    User since
    2011-08-06
    3 Artikel
    BenutzerIn
    
    Hi,
    so wie du es vermutest hatte ich es nun auch gelöst (nur etwas anders)
    Ich rechne innerhalb der Gleichung (dort wo int sein soll) % 2147483648.
    Ein auftretendes Problem ist leider noch, dass anscheinend manchmal ein weiteres - 2147483648 nötig ist.
    Dies scheint aber etwas Java Spezifisches zu sein.
    Meine Vermutung ist, dass noch geprüft wird ob
    
    Code: (dl )
    
    abs($value - 2147483648) < $value
    
    ist.
    
    Leider scheint dies nicht immer zu stimmen für alle Zahlen.

View all threads created 2011-08-06 19:11.