printf mit großen Zahlen? (Allgemeines zu Perl)

[thread]13639[/thread]

printf mit großen Zahlen?

Leser: 23

Articles: hide open all | hide show old branches

+10 replies
LanX-

2009-06-16 11:23
User since
2008-07-15
1000 Artikel
BenutzerIn
Hi

ich steh gerade auf dem schlauch, zuerst dachte ich es sein ein Problem mit Math::BigInt aber ich bekomme es auch so nicht hin sprintf mit extra großen Zahlen zu benutzen, trotz Angabe der Flags für Überlänge "ll".

Besonders seltsam ist die 2. Zeile:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

perl -e ' for $j (1000,1_000_000,1_000_000_000) { $i=$j**2; print "\n",$j,": \t",$i,"\t="; printf "%020llu", $i; }' 1000: 1000000 =00000000000001000000 1000000: 1000000000000 =00000000004294967295 1000000000: 1e+18 =00000000004294967295
NACHTRAG: hier ein workaround mit f für floats ... sehr seltsam:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

perl -e ' for $j (1000,1_000_000,1_000_000_000) { $i=$j**2; print "\n",$j,": \t",$i,"\t= "; printf "%020.0f", $i; }' 1000: 1000000 = 00000000000001000000 1000000: 1000000000000 = 00000001000000000000 1000000000: 1e+18 = 01000000000000000000
Last edited: 2009-06-16 11:43:10 +0200 (CEST)
me and my writeups
- +9 replies
- Taulmarill
  
  2009-06-16 11:49
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  printf und sprintf benutzen direkt die Funktionen aus deiner C Bibliothek. C kennt keine Math::BigInt Objekte.
  
  Perl selbst kann (wenn auf einem 32 Bit System) ohne Module auch nur mit Integern bis 2**32 umgehen. Größere Zahlen werden automatisch als Floats behandelt.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +8 replies
  - LanX-
    
    2009-06-16 11:59
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    naja schau dir mal das erste Beispiel 2. Zeile an, ohne BigInt!
    
    Da gibt ein normales print die volle Präzision aus während printf versagt...
    
    10^12 ~ 2^40 !!!
    
    (NACHTRAG: heißt dass, hier wird mit float gerechnet und die Mantisse des Floats ist größer als bei einem Int???)
    
    oder noch deulicher:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    perl -e ' for $j (1001,1_000_001,1_000_000_001) { $i=$j**2; print "\n",$j,": \t",$i,"\t="; printf "%020lu", $i; }' 1001: 1002001 =00000000000001002001 1000001: 1000002000001 =00000000004294967295 1000000001: 1.000000002e+18 =00000000004294967295
    
    Last edited: 2009-06-16 12:01:21 +0200 (CEST)
    me and my writeups
    - +7 replies
    - Taulmarill
      
      2009-06-16 12:08
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Das printf versagt nicht, du musst ihm nur sagen, dass du ein Float hast. Die Präzision bleibt erhalten, da Doubles (Floats mit doppelter Präzision) 52 Bit für die Mantisse reservieren und daher höhere Präzison als ein 32 Bit Integer haben. Im perldoc -f pack ist beschrieben, dass "Quads" (also Integer mit 64 Bit) nur auf 64Bit Architekturen zur Verfügung stehen. Selbst dann währe ich mir nicht 100%ig sicher, dass die auch verlustfrei an printf durchgereicht werden.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +6 replies
      - LanX-
        
        2009-06-16 12:17
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        ehrlich gesagt benutze ich perl weil ich keinen Assembler coden möchte. C hab ich übersprungen.
        
        Im Grunde möchte ich eine High-Level-Variante von printf die DWIM-mäßig automatisch händelt, ob der Parameter Int, Float, Double oder BigInt ist.
        
        Modulempfehlung?
        
        NACHTRAG: Andersherum, wie bekomme ich raus welche Darstellung ein Scalar gerade hat, um printf zu sagen "welche Formatierung er nutzen" soll
        Last edited: 2009-06-16 12:26:25 +0200 (CEST)
        me and my writeups
        
        +3 replies
        
        betterworld
        
        2009-06-16 12:30
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2009-06-16T10:17:58 LanX-
        NACHTRAG: Andersherum, wie bekomme ich raus welche Darstellung ein Scalar gerade hat, um printf zu sagen "welche Formatierung er nutzen" soll
        
        Hmm, das bekommst Du wohl nur XS-Modulen wie Devel::Peek oder mit B heraus. Aber du kannst ja leicht feststellen, ob eine Zahl eine Ganzzahl ist, indem Du sie mit int($zahl) vergleichst.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        LanX-
        
        2009-06-16 14:55
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        ... oder mit sprintf! ; )
        me and my writeups
        
        LanX-
        
        2009-06-16 16:27
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        2009-06-16T10:30:45 betterworld
        Aber du kannst ja leicht feststellen, ob eine Zahl eine Ganzzahl ist, indem Du sie mit int($zahl) vergleichst.
        
        Klappt leider nicht, int() liefert mir auch die Mantisse eines float.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        perl -e ' ($\,$,)=("\n","\t"); for $j (1001,1_000_001,1_000_000_001,1_000_000_001) { $q=$j**2; print $q,int($q),sprintf("%020u",$q); } ' 1002001 1002001 00000000000001002001 1000002000001 1000002000001 00000000004294967295 1.000000002e+18 1.000000002e+18 00000000004294967295 1.000000002e+18 1.000000002e+18 00000000004294967295
        
        me and my writeups
        
        +2 replies
        
        Taulmarill
        
        2009-06-16 13:26
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Falls du Math::BigInt benutzt, kannst du die Zahl einfach als String behandeln, da das sowieso das ist, was Math::BigInt zurück gibt. Z.B. so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        use Math::BigInt; my $n = Math::BigInt->new( 2 ); $n->bpow( 64 ); printf "%040s\n", $n;
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        LanX-
        
        2009-06-16 16:48
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        gute Idee, man kann sogar mit dem output weiterrechnen
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        perl -MMath::BigInt -e ' ($\,$,)=("\n","\t"); for $i (1001,1_000_001,1_000_000_001,1_000_000_000_001) { $j=$i; $q=$j**2; $s=sprintf("%020s",$q); print $q,int($q),$s++,$s; } ' 1002001 1002001 00000000000001002001 00000000000001002002 1000002000001 1000002000001 00000001000002000001 00000001000002000002 1.000000002e+18 1.000000002e+18 000001.000000002e+18 1.000000002e+18 1.000000000002e+24 1.000000000002e+24 001.000000000002e+24 1.000000000002e+24
        
        und kann den gleichen Code transparent mit BigInt verwenden:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        perl -MMath::BigInt -e ' ($\,$,)=("\n","\t"); for $i (1001,1_000_001,1_000_000_001,1_000_000_000_001) { $j=new Math::BigInt "$i"; $s=new Math::BigInt "0"; $q=new Math::BigInt "0"; $q=$j**2; $s=sprintf("%020s",$q); print $q,int($q),$s++,$s; } ' 1002001 1002001 00000000000001002001 00000000000001002002 1000002000001 1000002000001 00000001000002000001 00000001000002000002 1000000002000000001 1000000002000000001 01000000002000000001 01000000002000000002 1000000000002000000000001 1000000000002000000000001 1000000000002000000000001 1000000000002000000000002
        
        sieht gut aus, danke : )
        me and my writeups

View all threads created 2009-06-16 11:23.