[numbers] optellen van getallen

[jopiek]

Ik wil de DB code van een goederenwagon uitrekenen, daarvoor moet ik het volgende doen (o.a., rest zie wikipedia).

2400516
som(2+4+0+0+5+1+6) (antwoord is 18)

lokno is dan:
2 2 0 0 5 8 - 2

http://nl.wikipedia.org/wiki/Controlecijfer_(spoorwegen)

ik zou het in C/Java/Pascal/Perl wel voor elkaar krijgen, maar Numbers is nieuw voor me (en voor de meesten hier ws.).


[toevoeging]
Dit is iig een aardig begin: =SAMENVOEGEN(A4; B4; C4;C4;D4;E4;F4), dan heb je een tekst met alle getallen achter elkaar.

[ Voor 16% gewijzigd door jopiek op 09-08-2007 19:22 ]

[jopiek]

Dit is de uitwerking in perl:

code:

print "Voer een treinnummer in:";
$_ = <STDIN>;
chomp;
@array = split('', $_);
$i=1;
foreach (@array) {
  $_ = $_ * $i;
  if ($i > 1) {
    $i = 1;
  } else {
    $i = 2;
  }
}
$reeks = join('', @array);
@array = split('', $reeks);
$getal = 0;
foreach(@array) {
  $getal = $getal + $_;
}
$getal = 10 - ( $getal % 10);
if ($getal == 10) {
  $getal = 0;
}
print $getal, "\n";

[ Voor 4% gewijzigd door jopiek op 09-08-2007 19:32 . Reden: aanvulling ]