100 great problems of elementary mathematics : Their history and solution

Omslag: Menten Inc.
Omslaget viser titel og forfatternavn
Indskannet omslag - N650U - 150 dpi
Oversat fra tysk "Triumph der Mathematik. Hundert berühmte Probleme aus zwei Jahrtausenden mathematischer Kultur" til engelsk af David Antin

Berwicks problem har løsningen 7375428413 = 125473 * 58781, hvilket nedenstående perl program finder ret hurtigt

$| = 1;
for $a (1..9) {
for $b (0..9) {
for $c (0..9) {
for $d (0..9) {
for $e (0..9) {
for $f (1..9) {
for $g (0..9) {
for $h (0..9) {
for $i (0..9) {
$count ++; print "COUNT: $countn" if $count % 10000000 == 0;
$d1 = "$a$b$c$d"."7"."$e";
$d2 = "$f$g"."7"."$h$i";
$n = $d1 * $d2;
next unless $n =~ /^..7.......$/;
$s1 = $d1 * $f;
next unless $s1 =~ /^......$/;
$s2 = $d1 * $g;
next unless $s2 =~ /^.......$/;
$s3 = $d1 * 7;
next unless $s3 =~ /^.7....$/;
$s4 = $d1 * $h;
next unless $s4 =~ /^....7..$/;
$s5 = $d1 * $i;
next unless $s5 =~ /^......$/;
$r1 = $1 - $s1 * 10 if $n =~ /^(.......)/;
next unless $r1 =~ /^.....7.$/;
$r2 = ($r1 - $s2) * 10 + $1 if $n =~ /(.)..$/;
next unless $r2 =~ /^.7....$/;
$r3 = ($r2 - $s3) * 10 + $1 if $n =~ /(.).$/;
next unless $r3 =~ /^.......$/;
$r4 = ($r3 - $s4) * 10 + $1 if $n =~ /(.)$/;
next unless $r4 =~ /^......$/;
print "$n = $d1 * $d2n";
}}}}}}}}}

# Divisionsstykke med 7 syvtaller giver præcis een løsning
# **7******* : ****7* = **7**
# ******
# ------
# *****7*
# *******
# -------
# *7****
# *7****
# ------
# *******
# ****7**
# -------
# ******
# ******
# ------