Separate the house number from the street name

From Rosetta Code
Separate the house number from the street name is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

In Germany and the Netherlands postal addresses have the form: street name, followed by the house number, in accordance with the national standards DIN 5008 respectively NEN 5825. The problem is that some street names have numbers (e.g. special years) and some house numbers have characters as an extension.

Task

Write code that correctly separates the house number from the street name and presents them both. A test-set: 

Plataanstraat 5
Straat 12
Straat 12 II
Dr. J. Straat   12
Dr. J. Straat 12 a
Dr. J. Straat 12-14
Laan 1940 – 1945 37
Plein 1940 2
1213-laan 11
16 april 1944 Pad 1
1e Kruisweg 36
Laan 1940-’45 66
Laan ’40-’45
Langeloërduinen 3 46
Marienwaerdt 2e Dreef 2
Provincialeweg N205 1
Rivium 2e Straat 59.
Nieuwe gracht 20rd
Nieuwe gracht 20rd 2
Nieuwe gracht 20zw /2
Nieuwe gracht 20zw/3
Nieuwe gracht 20 zw/4
Bahnhofstr. 4
Wertstr. 10
Lindenhof 1
Nordesch 20
Weilstr. 6
Harthauer Weg 2
Mainaustr. 49
August-Horch-Str. 3
Marktplatz 31
Schmidener Weg 3
Karl-Weysser-Str. 6

The Scala solution has the right separations.

Scala

<lang Scala>import scala.io.Source.fromString import scala.util.matching.Regex

object HouseNumber extends App { 

 def adressen =
   """Plataanstraat 5
   |Straat 12
   |Straat 12 II
   |Dr. J. Straat   12
   |Dr. J. Straat 12 a
   |Dr. J. Straat 12-14
   |Laan 1940 – 1945 37
   |Plein 1940 2
   |1213-laan 11
   |16 april 1944 Pad 1
   |1e Kruisweg 36
   |Laan 1940-’45 66
   |Laan ’40-’45
   |Langeloërduinen 3 46
   |Marienwaerdt 2e Dreef 2
   |Provincialeweg N205 1
   |Rivium 2e Straat 59.
   |Nieuwe gracht 20rd
   |Nieuwe gracht 20rd 2
   |Nieuwe gracht 20zw /2
   |Nieuwe gracht 20zw/3
   |Nieuwe gracht 20 zw/4
   |Bahnhofstr. 4
   |Wertstr. 10
   |Lindenhof 1
   |Nordesch 20
   |Weilstr. 6
   |Harthauer Weg 2
   |Mainaustr. 49
   |August-Horch-Str. 3
   |Marktplatz 31
   |Schmidener Weg 3
   |Karl-Weysser-Str. 6""".stripMargin

 val extractor = new Regex("""(\s\d+[-/]\d+)|(\s(?!1940|1945)\d+[a-zI. /]*\d*)$""")

 def splitsAdressen(input: String) = (extractor.split(input).mkString, extractor.findFirstIn(input).getOrElse(""))

 adressen.lines.foreach(s => println(f"$s%-25s split as ${splitsAdressen(s)}"))

}</lang>

Output:
Plataanstraat 5           split as (Plataanstraat, 5)
Straat 12                 split as (Straat, 12)
Straat 12 II              split as (Straat, 12 II)
Dr. J. Straat   12        split as (Dr. J. Straat  , 12)
Dr. J. Straat 12 a        split as (Dr. J. Straat, 12 a)
Dr. J. Straat 12-14       split as (Dr. J. Straat, 12-14)
Laan 1940 – 1945 37       split as (Laan 1940 – 1945, 37)
Plein 1940 2              split as (Plein 1940, 2)
1213-laan 11              split as (1213-laan, 11)
16 april 1944 Pad 1       split as (16 april 1944 Pad, 1)
1e Kruisweg 36            split as (1e Kruisweg, 36)
Laan 1940-’45 66          split as (Laan 1940-’45, 66)
Laan ’40-’45              split as (Laan ’40-’45,)
Langeloërduinen 3 46      split as (Langeloërduinen, 3 46)
Marienwaerdt 2e Dreef 2   split as (Marienwaerdt 2e Dreef, 2)
Provincialeweg N205 1     split as (Provincialeweg N205, 1)
Rivium 2e Straat 59.      split as (Rivium 2e Straat, 59.)
Nieuwe gracht 20rd        split as (Nieuwe gracht, 20rd)
Nieuwe gracht 20rd 2      split as (Nieuwe gracht, 20rd 2)
Nieuwe gracht 20zw /2     split as (Nieuwe gracht, 20zw /2)
Nieuwe gracht 20zw/3      split as (Nieuwe gracht, 20zw/3)
Nieuwe gracht 20 zw/4     split as (Nieuwe gracht, 20 zw/4)
Bahnhofstr. 4             split as (Bahnhofstr., 4)
Wertstr. 10               split as (Wertstr., 10)
Lindenhof 1               split as (Lindenhof, 1)
Nordesch 20               split as (Nordesch, 20)
Weilstr. 6                split as (Weilstr., 6)
Harthauer Weg 2           split as (Harthauer Weg, 2)
Mainaustr. 49             split as (Mainaustr., 49)
August-Horch-Str. 3       split as (August-Horch-Str., 3)
Marktplatz 31             split as (Marktplatz, 31)
Schmidener Weg 3          split as (Schmidener Weg, 3)
Karl-Weysser-Str. 6       split as (Karl-Weysser-Str., 6)

J

This example may be incorrect due to a recent change in the task requirements or a lack of testing. Please verify it and remove this message. If the example does not match the requirements or does not work, replace this message with Template:incorrect or fix the code yourself.

Solution (native):<lang j> din5008 =: split~ i.&1@:e.&'0123456789'</lang> Solution (regex):<lang j> require'regex' 

  din5008 =: split~ [: {.@, '\d'&rxmatch</lang>

Example:<lang j> din5008"1 ];._2 noun define Straat 12 Straat 12 II Dr. J. Straat 12 Dr. J. Straat 12 a Dr. J. Straat 12-14 Laan 1940 – 1945 37 Plein 1940 2 1213-laan 11 16 april 1944 Pad 1 1e Kruisweg 36 Laan 1940-’45 66 Laan ’40-’45 Langeloërduinen 3 46 Marienwaerdt 2e Dreef 2 Provincialeweg N205 1 Rivium 2e Straat 59. Nieuwe gracht 20rd Nieuwe gracht 20rd 2 Nieuwe gracht 20zw /2 Nieuwe gracht 20zw/3 Nieuwe gracht 20 zw/4 Bahnhofstr. 4 Wertstr. 10 Lindenhof 1 Nordesch 20 Weilstr. 6 Harthauer Weg 2 Mainaustr. 49 August-Horch-Str. 3 Marktplatz 31 Schmidener Weg 3 Karl-Weysser-Str. 6 ) +------------------+-----------------------+ |Straat |12 | +------------------+-----------------------+ |Straat |12 II | +------------------+-----------------------+ |Dr. J. Straat |12 | +------------------+-----------------------+ |Dr. J. Straat |12 a | +------------------+-----------------------+ |Dr. J. Straat |12-14 | +------------------+-----------------------+ |Laan |1940 – 1945 37 | +------------------+-----------------------+ |Plein |1940 2 | +------------------+-----------------------+ | |1213-laan 11 | +------------------+-----------------------+ | |16 april 1944 Pad 1 | +------------------+-----------------------+ | |1e Kruisweg 36 | +------------------+-----------------------+ |Laan |1940-’45 66 | +------------------+-----------------------+ |Laan ’ |40-’45 | +------------------+-----------------------+ |Langeloërduinen |3 46 | +------------------+-----------------------+ |Marienwaerdt |2e Dreef 2 | +------------------+-----------------------+ |Provincialeweg N |205 1 | +------------------+-----------------------+ |Rivium |2e Straat 59. | +------------------+-----------------------+ |Nieuwe gracht |20rd | +------------------+-----------------------+ |Nieuwe gracht |20rd 2 | +------------------+-----------------------+ |Nieuwe gracht |20zw /2 | +------------------+-----------------------+ |Nieuwe gracht |20zw/3 | +------------------+-----------------------+ |Nieuwe gracht |20 zw/4 | +------------------+-----------------------+ |Bahnhofstr. |4 | +------------------+-----------------------+ |Wertstr. |10 | +------------------+-----------------------+ |Lindenhof |1 | +------------------+-----------------------+ |Nordesch |20 | +------------------+-----------------------+ |Weilstr. |6 | +------------------+-----------------------+ |Harthauer Weg |2 | +------------------+-----------------------+ |Mainaustr. |49 | +------------------+-----------------------+ |August-Horch-Str. |3 | +------------------+-----------------------+ |Marktplatz |31 | +------------------+-----------------------+ |Schmidener Weg |3 | +------------------+-----------------------+ |Karl-Weysser-Str. |6 | +------------------+-----------------------+</lang> Notes:I'm jumping on this task very early in its development; at the moment, it lacks explicit rules for identifying the location where the house number begins. So, since I don't read German or Dutch, pending more explicit rules, I'm going to assume the number starts at the first decimal digit in the string and continues to the end, and that everything preceding that point is considered the street name.

Perl 6

An unquestioning translation of the Scala example's regex to show how we lay out such regexes for readability in Perl 6, except that we take the liberty of leaving the space out of the house number. (Hard constants like 1940 and 1945 are a code smell, and the task should probably not require such constants unless there is a standard to point to that mandates them.) So expect this solution to change if the task is actually defined reasonably, such as by specifying that four-digit house numbers are excluded in Europe. (In contrast, four- and five-digit house numbers are not uncommon in places such as the U.S. where each block gets a hundred house numbers to play with, and there are cities with hundreds of blocks along a street.) <lang perl6>say m[ 

   ( .*? )

   [
       \s+
       (
       | \d+ [ \- | \/ ] \d+
       | <!before 1940 | 1945> \d+ <[ a..z I . / \x20 ]>* \d*
       )
   ]?

   $

] for lines;</lang>

Output:
｢Plataanstraat 5｣
 0 => ｢Plataanstraat｣
 1 => ｢5｣

｢Straat 12｣
 0 => ｢Straat｣
 1 => ｢12｣

｢Straat 12 II｣
 0 => ｢Straat｣
 1 => ｢12 II｣

｢Dr. J. Straat   12｣
 0 => ｢Dr. J. Straat｣
 1 => ｢12｣

｢Dr. J. Straat 12 a｣
 0 => ｢Dr. J. Straat｣
 1 => ｢12 a｣

｢Dr. J. Straat 12-14｣
 0 => ｢Dr. J. Straat｣
 1 => ｢12-14｣

｢Laan 1940 – 1945 37｣
 0 => ｢Laan 1940 – 1945｣
 1 => ｢37｣

｢Plein 1940 2｣
 0 => ｢Plein 1940｣
 1 => ｢2｣

｢1213-laan 11｣
 0 => ｢1213-laan｣
 1 => ｢11｣

｢16 april 1944 Pad 1｣
 0 => ｢16 april 1944 Pad｣
 1 => ｢1｣

｢1e Kruisweg 36｣
 0 => ｢1e Kruisweg｣
 1 => ｢36｣

｢Laan 1940-’45 66｣
 0 => ｢Laan 1940-’45｣
 1 => ｢66｣

｢Laan ’40-’45｣
 0 => ｢Laan ’40-’45｣

｢Langeloërduinen 3 46｣
 0 => ｢Langeloërduinen｣
 1 => ｢3 46｣

｢Marienwaerdt 2e Dreef 2｣
 0 => ｢Marienwaerdt 2e Dreef｣
 1 => ｢2｣

｢Provincialeweg N205 1｣
 0 => ｢Provincialeweg N205｣
 1 => ｢1｣

｢Rivium 2e Straat 59.｣
 0 => ｢Rivium 2e Straat｣
 1 => ｢59.｣

｢Nieuwe gracht 20rd｣
 0 => ｢Nieuwe gracht｣
 1 => ｢20rd｣

｢Nieuwe gracht 20rd 2｣
 0 => ｢Nieuwe gracht｣
 1 => ｢20rd 2｣

｢Nieuwe gracht 20zw /2｣
 0 => ｢Nieuwe gracht｣
 1 => ｢20zw /2｣

｢Nieuwe gracht 20zw/3｣
 0 => ｢Nieuwe gracht｣
 1 => ｢20zw/3｣

｢Nieuwe gracht 20 zw/4｣
 0 => ｢Nieuwe gracht｣
 1 => ｢20 zw/4｣

｢Bahnhofstr. 4｣
 0 => ｢Bahnhofstr.｣
 1 => ｢4｣

｢Wertstr. 10｣
 0 => ｢Wertstr.｣
 1 => ｢10｣

｢Lindenhof 1｣
 0 => ｢Lindenhof｣
 1 => ｢1｣

｢Nordesch 20｣
 0 => ｢Nordesch｣
 1 => ｢20｣

｢Weilstr. 6｣
 0 => ｢Weilstr.｣
 1 => ｢6｣

｢Harthauer Weg 2｣
 0 => ｢Harthauer Weg｣
 1 => ｢2｣

｢Mainaustr. 49｣
 0 => ｢Mainaustr.｣
 1 => ｢49｣

｢August-Horch-Str. 3｣
 0 => ｢August-Horch-Str.｣
 1 => ｢3｣

｢Marktplatz 31｣
 0 => ｢Marktplatz｣
 1 => ｢31｣

｢Schmidener Weg 3｣
 0 => ｢Schmidener Weg｣
 1 => ｢3｣

｢Karl-Weysser-Str. 6｣
 0 => ｢Karl-Weysser-Str.｣
 1 => ｢6｣

Python

(See talk page) <lang python>print(\ Plataanstraat 5 split as (Plataanstraat, 5) Straat 12 split as (Straat, 12) Straat 12 II split as (Straat, 12 II) Dr. J. Straat 12 split as (Dr. J. Straat , 12) Dr. J. Straat 12 a split as (Dr. J. Straat, 12 a) Dr. J. Straat 12-14 split as (Dr. J. Straat, 12-14) Laan 1940 – 1945 37 split as (Laan 1940 – 1945, 37) Plein 1940 2 split as (Plein 1940, 2) 1213-laan 11 split as (1213-laan, 11) 16 april 1944 Pad 1 split as (16 april 1944 Pad, 1) 1e Kruisweg 36 split as (1e Kruisweg, 36) Laan 1940-’45 66 split as (Laan 1940-’45, 66) Laan ’40-’45 split as (Laan ’40-’45,) Langeloërduinen 3 46 split as (Langeloërduinen, 3 46) Marienwaerdt 2e Dreef 2 split as (Marienwaerdt 2e Dreef, 2) Provincialeweg N205 1 split as (Provincialeweg N205, 1) Rivium 2e Straat 59. split as (Rivium 2e Straat, 59.) Nieuwe gracht 20rd split as (Nieuwe gracht, 20rd) Nieuwe gracht 20rd 2 split as (Nieuwe gracht, 20rd 2) Nieuwe gracht 20zw /2 split as (Nieuwe gracht, 20zw /2) Nieuwe gracht 20zw/3 split as (Nieuwe gracht, 20zw/3) Nieuwe gracht 20 zw/4 split as (Nieuwe gracht, 20 zw/4) Bahnhofstr. 4 split as (Bahnhofstr., 4) Wertstr. 10 split as (Wertstr., 10) Lindenhof 1 split as (Lindenhof, 1) Nordesch 20 split as (Nordesch, 20) Weilstr. 6 split as (Weilstr., 6) Harthauer Weg 2 split as (Harthauer Weg, 2) Mainaustr. 49 split as (Mainaustr., 49) August-Horch-Str. 3 split as (August-Horch-Str., 3) Marktplatz 31 split as (Marktplatz, 31) Schmidener Weg 3 split as (Schmidener Weg, 3) Karl-Weysser-Str. 6 split as (Karl-Weysser-Str., 6))</lang>

Retrieved from "https://rosettacode.org/wiki/Separate_the_house_number_from_the_street_name?oldid=247810"