runden von zahlen (Seite 2) (Allgemeines zu Perl)

[thread]5732[/thread]

runden von zahlen (Seite 2)

Leser: 2

Crian

2003-09-18 14:03

User since
2003-08-04
5873 Artikel
ModeratorIn

Teil die Zahl durch fünf, runde sie (int(zahl+0.5)) und nimm sie dann wieder mal 5.
Also einfach so:

Code: (dl )

sub fuenf_rnd($) {
    my $zahl = shift;
    return 5* int(0.5+$zahl/5);
}

Kürzer gehts wohl kaum, und das gleiche Rezept geht natürlich auch, wenn Du auf 7, 15 oder 25 ... runden willst...

Edit: Na gut, man kanns natürlich kürzer formulieren:

Code: (dl )

sub fuenf_rnd($) { return 5* int(0.5+shift/5) }

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2003-09-17 17:55.