Rosetta Code

Separate the house number from the street name: Difference between revisions

Page Discussion

Separate the house number from the street name (view source)

Revision as of 11:23, 4 February 2024

38,602 bytes added ,  3 months ago
m
→‎{{header|Wren}}: Minor tidy
(Added Perl example)
m (→‎{{header|Wren}}: Minor tidy)
 
(20 intermediate revisions by 12 users not shown)
Line 43:
Schmidener Weg 3
Karl-Weysser-Str. 6</pre>
 
;Reference [https://www.grcdi.nl/gsb/netherlands.html#H7850D12EA45D65E283BB536CBC7222059B48448A03BA2AA2ATheA20NetherlandsA20A2DA20A5BA5BAddressesA5DA5DA2AA2A00100400A01801B01E021024030033036039 The Netherlands - Addresses]
 
=={{header|11l}}==
{{trans|Nim}}
 
<syntaxhighlight lang="11l">F separateHouseNumber(address)
V fields = address.split_py()
V last = fields.last
V penult = fields[(len)-2]
V house = ‘’
I last[0].is_digit()
V isdig = penult[0].is_digit()
I fields.len > 2 & isdig & !penult.starts_with(‘194’)
house = penult‘ ’last
E
house = last
E I fields.len > 2
house = penult‘ ’last
R (address[0 .< address.len - house.len].rtrim(‘ ’), house)
 
V Addresses = [‘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’,
‘Langeloerduinen 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’]
 
print(‘ Street House Number’)
print(‘--------------------- ------------’)
L(address) Addresses
V (street, house) = separateHouseNumber(address)
print(street.rjust(22)‘ ’(I !house.empty {house} E ‘(none)’))</syntaxhighlight>
 
{{out}}
<pre>
Street House Number
--------------------- ------------
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 (none)
Langeloerduinen 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
</pre>
 
=={{header|ALGOL 68}}==
Although Algol 68G has a <code>grep in string</code> procedure which does regular expression matching, this is non-standard so this sample parses the address line without regular expressions.
<syntaxhighlight lang="algol68">
BEGIN # separate house numbers from street names in German/Netherlands #
# addresses #
 
# returns the position of the start of the house number in a #
PROC house position = ( STRING a )INT:
BEGIN
CHAR eol ch = REPR 0;
INT a pos := UPB a;
PROC eol = BOOL: a pos < LWB a OR a pos > UPB a;
PROC ch = ( INT pos )CHAR:
IF pos < LWB a OR pos > UPB a THEN eol ch ELSE a[ pos ] FI;
PROC curr = CHAR: ch( a pos );
PROC prev = CHAR: IF a pos >= LWB a THEN a pos -:= 1; curr ELSE eol ch FI;
PROC next = CHAR: IF a pos <= UPB a THEN a pos +:= 1; curr ELSE eol ch FI;
PROC have = ( CHAR c )BOOL: curr = c;
PROC range = ( CHAR a, z, INT pos )BOOL: ch( pos ) >= a AND ch( pos ) <= z;
PROC digit = ( INT pos )BOOL: range( "0", "9", pos );
 
WHILE have( " " ) DO prev OD;
IF have( "." ) THEN prev; WHILE have( " " ) DO prev OD FI;
WHILE have( "I" ) DO prev OD;
WHILE have( " " ) DO prev OD;
WHILE range( "a", "z", a pos ) OR digit( a pos )
OR have( " " ) OR have( "." ) OR have( "/" ) OR have( "-" )
DO
prev
OD;
IF have( "'" ) THEN # abbreviated year #
WHILE next;
digit( a pos )
DO SKIP OD
FI;
IF eol THEN # must not be the whole line #
WHILE next;
NOT have( " " ) AND NOT eol
DO SKIP OD
FI;
# must start with a number that doesn't look like a 1940s year #
WHILE WHILE have( " " ) DO next OD;
IF NOT digit( a pos ) THEN
WHILE NOT have( " " ) AND NOT eol DO next OD
FI;
WHILE NOT digit( a pos ) AND NOT eol DO next OD;
ch( a pos ) = "1" AND ch( a pos + 1 ) = "9"
AND ch( a pos + 2 ) = "4" AND digit( a pos + 3 )
DO
WHILE digit( a pos ) DO next OD
OD;
a pos
END # house position # ;
 
[]STRING test cases
= ( "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"
);
FOR i FROM LWB test cases TO UPB test cases DO
PROC rtrim = ( STRING s )STRING:
BEGIN
INT s end := UPB s;
WHILE IF s end < LWB s THEN FALSE ELSE s[ s end ] = " " FI DO
s end -:= 1
OD;
s[ LWB s : s end ]
END # rtrim # ;
PROC lpad = ( STRING s, INT len )STRING:
IF INT s len = ( UPB s + 1 ) - LWB s;
s len >= len
THEN s
ELSE " " * ( len - s len ) + s
FI # lpad # ;
STRING test = rtrim( test cases[ i ] );
INT h pos = house position( test );
STRING street = IF h pos > UPB test THEN test ELSE test[ LWB test : h pos - 1 ] FI;
STRING house = IF h pos > UPB test THEN "(none)" ELSE test[ h pos : ] FI;
print( ( lpad( rtrim( street ), 40 ), " ", rtrim( house ), newline ) )
OD
 
END
</syntaxhighlight>
{{out}}
<pre>
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 (none)
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
</pre>
 
=={{header|EchoLisp}}==
<langsyntaxhighlight lang="scheme">
(lib 'struct)
(lib 'sql)
Line 109 ⟶ 336:
"Schmidener Weg 3"
"Karl-Weysser-Str. 6"))
</syntaxhighlight>
</lang>
{{out}}
<pre>
Line 148 ⟶ 375:
[32] Schmidener Weg 3
[33] Karl-Weysser-Str. 6
</pre>
 
=={{header|F_Sharp|F#}}==
<syntaxhighlight lang="fsharp">
// Seperate house number and street in Dutch addresses. Nigel Galloway: September 23rd., 2021
let fN g=let n=System.Text.RegularExpressions.Regex.Match(g,@"(\s\d+[-/]\d+)|(\s(?!1940|1945)\d+[a-zI. /]*\d*)$") in if n.Success then Some(g.[0..n.Index],n.Value) else None
let td=["Plataanstraat 5";"Straat 12";"Straat 12 II";"Straat 1940 II";"Dr. J. Straat 40";"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"]
printfn " Street Number\n ______ ______"
td|>List.iter(fun g->match fN g with Some(n,g)->printfn $"%27s{n.Trim()} %s{g}" |_->printfn $"FAILED %s{g}")
</syntaxhighlight>
{{out}}
<pre>
Street Number
______ ______
Plataanstraat 5
Straat 12
Straat 12 II
FAILED Straat 1940 II
Dr. J. Straat 40
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
FAILED 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
</pre>
 
=={{header|Go}}==
{{trans|Kotlin}}
<langsyntaxhighlight lang="go">package main
 
import (
Line 228 ⟶ 503:
fmt.Printf("%-22s %s\n", street, house)
}
}</langsyntaxhighlight>
 
{{out}}
Line 247 ⟶ 522:
Laan 1940-'45 66
Laan '40-'45 (none)
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
</pre>
 
=={{header|Haskell}}==
 
{{libheader|regex-pcre-builtin}}
{{Works with|GHC|7.8.3}}
 
<syntaxhighlight lang="haskell">{-# LANGUAGE OverloadedStrings #-}
 
{- Recommended package versions to use:
base >= 4.7 && < 5
regex-pcre-builtin >= 0.95 && < 0.96
text >= 1.2.3 && < 1.3
-}
 
module Main where
 
import Control.Monad
import Data.Char
import Data.Monoid
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Text.Regex.PCRE.Text
 
testSet :: [T.Text]
testSet =
[ "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"
]
 
-- This is the regex from the Perl implementation of the task.
addressPattern :: T.Text
addressPattern = T.unlines
[ "^ (.*?) \\s+"
, " ("
, " \\d* (\\-|\\/)? \\d*"
, " | \\d{1,3} [a-zI./ ]* \\d{0,3}"
, " )"
, "$"
]
 
splitAddressASCII :: Regex -> T.Text -> IO (T.Text, T.Text)
splitAddressASCII rx txt = do
result <- regexec rx txt
case result of
Left w -> fail (show w)
Right (Just (_, _, _, (street:house:_))) -> return (street, house)
_ -> return (txt, "")
 
-- For reasons I don't understand, PCRE isn't handling UTF-8 correctly,
-- even when the compUTF8 option is given. So, hack around it by
-- assuming any non-ASCII characters are in the street name, not the number.
splitAddress :: Regex -> T.Text -> IO (T.Text, T.Text)
splitAddress rx txt = do
let prefix = T.dropWhileEnd isAscii txt
ascii = T.takeWhileEnd isAscii txt
(street, house) <- splitAddressASCII rx ascii
return (prefix <> street, house)
 
formatPairs :: [(T.Text, T.Text)] -> [T.Text]
formatPairs pairs =
let headings = ("Street", "House Number")
(streets, houses) = unzip (headings : pairs)
sLen = maximum $ map T.length streets
hLen = maximum $ map T.length houses
sep = (T.replicate sLen "-", T.replicate hLen "-")
fmt (s, h) = T.justifyLeft (sLen + 4) ' ' s <> h
in map (T.strip . fmt) (headings : sep : pairs)
 
main :: IO ()
main = do
erx <- compile (compExtended + compUTF8) execBlank addressPattern
rx <- case erx of
Left (offset, str) -> fail $ show offset ++ ": " ++ str
Right r -> return r
pairs <- mapM (splitAddress rx) testSet
mapM_ T.putStrLn $ formatPairs pairs</syntaxhighlight>
{{out}}
<pre>
Street House Number
--------------------- ------------
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
Line 272 ⟶ 692:
 
'''Solution''':
<langsyntaxhighlight lang="j">special=: '4',.'012345'
digit=: '0123456789'
nope=: {{>./({.I.y=' '),1+I. special +./@:(E."1) y}}
here=: {{I.1,~y e.digit}}
din5008=: ({.;}.)~ here {.@#~ nope < here</syntaxhighlight>
 
Sample data:
nope=: 3 :'>./2+I. special +/@:(E."1) y'
here=: 3 :'I.y e.digit'
din5008=: ({.;}.)~ here {.@#~ nope < here</lang>
 
<syntaxhighlight lang="j"> sampledata=: ];._2 noun define
Sample data (works with either of the above implementations):
 
<lang j> sampledata=: ];._2 noun define
Straat 12
Straat 12 II
Line 314 ⟶ 734:
Schmidener Weg 3
Karl-Weysser-Str. 6
)</langsyntaxhighlight>
 
'''Example''':<langsyntaxhighlight lang="j"> din5008"1 sampledata
┌───────────────────┬────────────────┐
┌───────────────────┬───────────────────────┐
│Straat │12 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Straat │12 II │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Dr. J. Straat │12 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Dr. J. Straat │12 a │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Dr. J. Straat │12-14 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Laan 1940 – 1945 │37 │37 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Plein 1940 │2 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
││1213-laan │11 │1213-laan 11 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│16 april 1944 Pad │1 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
││1e Kruisweg │36 │1e Kruisweg 36 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
│Laan 1940-’45 │66 │66 │
├───────────────────┼────────────────┤
├───────────────────┼───────────────────────┤
││Laan ’40-’45 │ │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 │
└───────────────────┴────────────────┘</syntaxhighlight>
└───────────────────┴───────────────────────┘</lang>
 
=={{header|jq}}==
{{works with|jq}}
 
The following uses the regex from the Perl version, together with a regex covering the
case of "Laan '40-'45" since that is apparently acceptable.
 
An alternative would be to use the Scala regex, which in the present context (in particular, using the "x" regex modifier) could be rendered as:
<pre>
"(?<s>.*) (?<n> (\\s\\d+[-/]\\d+) | (\\s(?!1940|1945)\\d+[a-zI. /]*\\d*)$ | \\d+\\['][40|45]$ )"
</pre>
<syntaxhighlight lang="jq">def regex:
"^ (?<s>.*?) \\s+"
+ " (?<n>\\d* ( \\-|\\/)? \\d*"
+ " | \\d{1,3} [a-zI./ ]* \\d{0,3}"
+ " )$";
 
# Output: {s, n}
# If the input cannot be parsed,
# then .s is a copy of the the input, and .n is "(Error)"
def parseStreetNumber:
capture(regex; "x")
// capture( "^(?<s>.*'40 *- *'45) *$" )
// {s: ., n: "(Error)"}
| .n |= if . == "" or . == null then "(none)" else . end ;
 
def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;</syntaxhighlight>
'''The Task'''
<syntaxhighlight lang="jq">def addresses:
"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"
;
 
def task:
"Street House Number",
"--------------------- ------------",
(addresses
| parseStreetNumber
| "\(.s|lpad(22)) \(.n)" ) ;
 
task</syntaxhighlight>
{{out}}
<pre>
Street House Number
--------------------- ------------
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 (none)
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
</pre>
 
=={{header|Julia}}==
Uses the regex from the Perl version.
<syntaxhighlight lang="julia">const regex = r"""^ (.*?) \s+
(
\d* (\-|\/)? \d*
| \d{1,3} [a-zI./ ]* \d{0,3}
)
$"""x
const 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"""
 
for line in strip.(split(adressen, "\n"))
if (matched = match(regex, line)) != nothing
street, number = matched.captures
println(rpad(line, 30), "split as street => $street, number => $number")
else
println(rpad(line, 30), "(Error)")
end
end
</syntaxhighlight>{{out}}
<pre>
Plataanstraat 5 split as street => Plataanstraat, number => 5
Straat 12 split as street => Straat, number => 12
Straat 12 II split as street => Straat, number => 12 II
Dr. J. Straat 12 split as street => Dr. J. Straat, number => 12
Dr. J. Straat 12 a split as street => Dr. J. Straat, number => 12 a
Dr. J. Straat 12-14 split as street => Dr. J. Straat, number => 12-14
Laan 1940 – 1945 37 split as street => Laan 1940 – 1945, number => 37
Plein 1940 2 split as street => Plein 1940, number => 2
1213-laan 11 split as street => 1213-laan, number => 11
16 april 1944 Pad 1 split as street => 16 april 1944 Pad, number => 1
1e Kruisweg 36 split as street => 1e Kruisweg, number => 36
Laan 1940-’45 66 split as street => Laan 1940-’45, number => 66
Laan ’40-’45 (Error)
Langeloërduinen 3 46 split as street => Langeloërduinen, number => 3 46
Marienwaerdt 2e Dreef 2 split as street => Marienwaerdt 2e Dreef, number => 2
Provincialeweg N205 1 split as street => Provincialeweg N205, number => 1
Rivium 2e Straat 59. split as street => Rivium 2e Straat, number => 59.
Nieuwe gracht 20rd split as street => Nieuwe gracht, number => 20rd
Nieuwe gracht 20rd 2 split as street => Nieuwe gracht, number => 20rd 2
Nieuwe gracht 20zw /2 split as street => Nieuwe gracht, number => 20zw /2
Nieuwe gracht 20zw/3 split as street => Nieuwe gracht, number => 20zw/3
Nieuwe gracht 20 zw/4 split as street => Nieuwe gracht, number => 20 zw/4
Bahnhofstr. 4 split as street => Bahnhofstr., number => 4
Wertstr. 10 split as street => Wertstr., number => 10
Lindenhof 1 split as street => Lindenhof, number => 1
Nordesch 20 split as street => Nordesch, number => 20
Weilstr. 6 split as street => Weilstr., number => 6
Harthauer Weg 2 split as street => Harthauer Weg, number => 2
Mainaustr. 49 split as street => Mainaustr., number => 49
August-Horch-Str. 3 split as street => August-Horch-Str., number => 3
Marktplatz 31 split as street => Marktplatz, number => 31
Schmidener Weg 3 split as street => Schmidener Weg, number => 3
Karl-Weysser-Str. 6 split as street => Karl-Weysser-Str., number => 6
</pre>
 
=={{header|Kotlin}}==
<langsyntaxhighlight lang="scala">// version 1.0.6
 
val r = Regex("""\s+""")
Line 448 ⟶ 1,067:
println("${street.padEnd(22)} ${if (house != "") house else "(none)"}")
}
}</langsyntaxhighlight>
 
{{out}}
Line 488 ⟶ 1,107:
Karl-Weysser-Str. 6
</pre>
 
=={{header|Nim}}==
{{trans|Go}}
<syntaxhighlight lang="nim">import strutils except align
from unicode import align
 
func separateHouseNumber(address: string): tuple[street, house: string] =
let fields = address.splitWhitespace()
let last = fields[^1]
let penult = fields[^2]
if last[0].isDigit():
let isdig = penult[0].isDigit()
if fields.len > 2 and isdig and not penult.startsWith("194"):
result.house = penult & ' ' & last
else:
result.house = last
elif fields.len > 2:
result.house = penult & ' ' & last
result.street = address[0..address.high-result.house.len].strip(leading = false, trailing = true)
 
const Addresses = ["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"]
 
echo " Street House Number"
echo "————————————————————— ————————————"
for address in Addresses:
let (street, house) = address.separateHouseNumber()
echo street.align(22), " ", if house.len != 0: house else: "(none)"</syntaxhighlight>
 
{{out}}
<pre> Street House Number
————————————————————— ————————————
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 (none)
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</pre>
 
=={{header|Perl}}==
<langsyntaxhighlight lang="perl">@addresses = (
'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',
Line 507 ⟶ 1,222:
\d* (\-|\/)? \d*
| \d{1,3} [a-zI./ ]* \d{0,3}
) $
$]x;
$number ? printf "%-26s\t%s\n", ($street, $number) : print($_, "\t(no match)\n");
}</langsyntaxhighlight>
{{out}}
<pre style="height:35ex">Plataanstraat 5
Line 524 ⟶ 1,239:
1e Kruisweg 36
Laan 1940-’45 66
Laan ’40-’45 (no match)
Langeloërduinen 3 46
Marienwaerdt 2e Dreef 2
Line 545 ⟶ 1,260:
Schmidener Weg 3
Karl-Weysser-Str. 6</pre>
 
=={{header|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>
{{out}}
<pre>｢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｣
 
</pre>
 
=={{header|Phix}}==
{{trans|Go}}
<!--<syntaxhighlight lang="phix">(phixonline)-->
<lang Phix>function isDigit(integer ch)
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
return ch>='0' and ch<='9'
<span style="color: #008080;">function</span> <span style="color: #000000;">isDigit</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">)</span>
end function
<span style="color: #008080;">return</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">>=</span><span style="color: #008000;">'0'</span> <span style="color: #008080;">and</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;"><=</span><span style="color: #008000;">'9'</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
function separateHouseNumber(sequence address)
address = split(address,no_empty:=true)
<span style="color: #008080;">function</span> <span style="color: #000000;">separateHouseNumber</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">address</span><span style="color: #0000FF;">)</span>
string street, house
<span style="color: #000000;">address</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">)</span>
integer h = 0
<span style="color: #004080;">string</span> <span style="color: #000000;">street</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">house</span>
if length(address)>1 then
<span style="color: #004080;">integer</span> <span style="color: #000000;">h</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
string last = address[$]
<span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">)></span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span>
if isDigit(last[1]) then
<span style="color: #004080;">string</span> <span style="color: #000000;">last</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">address</span><span style="color: #0000FF;">[$]</span>
h = 1
<span style="color: #008080;">if</span> <span style="color: #000000;">isDigit</span><span style="color: #0000FF;">(</span><span style="color: #000000;">last</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">then</span>
string penult = address[$-1]
<span style="color: #000000;">h</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
if length(address)>2
<span style="color: #004080;">string</span> <span style="color: #000000;">penult</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">address</span><span style="color: #0000FF;">[$-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
and isDigit(penult[1])
<span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">)></span><span style="color: #000000;">2</span>
and match("194",penult)!=1 then
<span style="color: #008080;">and</span> <span style="color: #000000;">isDigit</span><span style="color: #0000FF;">(</span><span style="color: #000000;">penult</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">])</span>
h = 2
<span style="color: #008080;">and</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"194"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">penult</span><span style="color: #0000FF;">)!=</span><span style="color: #000000;">1</span> <span style="color: #008080;">then</span>
end if
<span style="color: #000000;">h</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">2</span>
elsif length(address)>2 then
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
h = 2
<span style="color: #008080;">elsif</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">)></span><span style="color: #000000;">2</span> <span style="color: #008080;">then</span>
end if
<span style="color: #000000;">h</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">2</span>
end if
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
if h then
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
street = join(address[1..$-h])
<span style="color: #008080;">if</span> <span style="color: #000000;">h</span> <span style="color: #008080;">then</span>
house = join(address[$-h+1..$])
<span style="color: #000000;">street</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$-</span><span style="color: #000000;">h</span><span style="color: #0000FF;">])</span>
else
<span style="color: #000000;">house</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">[$-</span><span style="color: #000000;">h</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$])</span>
street = join(address)
<span style="color: #008080;">else</span>
house = "(none)"
<span style="color: #000000;">street</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">address</span><span style="color: #0000FF;">)</span>
end if
<span style="color: #000000;">house</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"(none)"</span>
return {street,house}
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
end function
<span style="color: #008080;">return</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">street</span><span style="color: #0000FF;">,</span><span style="color: #000000;">house</span><span style="color: #0000FF;">}</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
constant addresses = {"Plataanstraat 5",
"Straat 12",
<span style="color: #008080;">constant</span> <span style="color: #000000;">addresses</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"Plataanstraat 5"</span><span style="color: #0000FF;">,</span>
"Straat 12 II",
"Dr. J.<span style="color: #008000;">"Straat 12"</span><span style="color: 12#0000FF;">,</span>
"Dr. J.<span style="color: #008000;">"Straat 12 aII"</span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Dr. J. Straat 12-14"</span><span style="color: #0000FF;">,</span>
<span style="Laancolor: 1940#008000;">"Dr. -J. 1945Straat 12 a"</span><span style="color: 37#0000FF;">,</span>
<span style="Pleincolor: 1940#008000;">"Dr. J. Straat 12-14"</span><span style="color: 2#0000FF;">,</span>
<span style="1213color: #008000;">"Laan 1940 -laan 111945 37"</span><span style="color: #0000FF;">,</span>
<span style="16color: april#008000;">"Plein 19441940 Pad2"</span><span style="color: 1#0000FF;">,</span>
<span style="1ecolor: Kruisweg#008000;">"1213-laan 11"</span><span style="color: 36#0000FF;">,</span>
<span style="Laancolor: 1940-'45#008000;">"16 april 1944 Pad 1"</span><span style="color: 66#0000FF;">,</span>
<span style="color: #008000;">"1e Kruisweg 36"</span><span style="Laancolor: '40-'45#0000FF;">,</span>
<span style="Langeloërduinencolor: 3#008000;">"Laan 1940-'45 66"</span><span style="color: 46#0000FF;">,</span>
<span style="Marienwaerdtcolor: 2e#008000;">"Laan Dreef'40-'45"</span><span style="color: 2#0000FF;">,</span>
<span style="Provincialewegcolor: N205#008000;">"Langeloërduinen 3 46"</span><span style="color: 1#0000FF;">,</span>
<span style="Riviumcolor: #008000;">"Marienwaerdt 2e StraatDreef 2"</span><span style="color: 59.#0000FF;">,</span>
<span style="Nieuwecolor: gracht#008000;">"Provincialeweg N205 1"</span><span style="color: 20rd#0000FF;">,</span>
<span style="Nieuwecolor: gracht#008000;">"Rivium 20rd2e Straat 59."</span><span style="color: 2#0000FF;">,</span>
<span style="color: #008000;">"Nieuwe gracht 20zw 20rd"</2span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Nieuwe gracht 20zw20rd 2"</3span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Nieuwe gracht 2020zw zw/42"</span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Nieuwe gracht 20zw/3"</span><span style="Bahnhofstr.color: 4#0000FF;">,</span>
<span style="color: #008000;">"Nieuwe gracht 20 zw/4"</span><span style="Wertstr.color: 10#0000FF;">,</span>
<span style="color: #008000;">"Bahnhofstr. 4"</span><span style="Lindenhofcolor: 1#0000FF;">,</span>
<span style="color: #008000;">"Wertstr. 10"</span><span style="Nordeschcolor: 20#0000FF;">,</span>
<span style="color: #008000;">"Lindenhof 1"</span><span style="Weilstr.color: 6#0000FF;">,</span>
<span style="Harthauercolor: Weg#008000;">"Nordesch 20"</span><span style="color: 2#0000FF;">,</span>
<span style="Mainaustrcolor: #008000;">"Weilstr. 496"</span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Harthauer Weg 2"</span><span style="August-Horch-Str.color: 3#0000FF;">,</span>
<span style="color: #008000;">"Mainaustr. 49"</span><span style="Marktplatzcolor: 31#0000FF;">,</span>
<span style="Schmidenercolor: Weg#008000;">"August-Horch-Str. 3"</span><span style="color: #0000FF;">,</span>
<span style="color: #008000;">"Marktplatz 31"</span><span style="Karl-Weysser-Str.color: 6#0000FF;"}>,</span>
<span style="color: #008000;">"Schmidener Weg 3"</span><span style="color: #0000FF;">,</span>
 
<span style="color: #008000;">"Karl-Weysser-Str. 6"</span><span style="color: #0000FF;">}</span>
procedure main()
printf(1,"Street House Number\n")
<span style="color: #008080;">procedure</span> <span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
printf(1,"--------------------- ------------\n")
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Street House Number\n"</span><span style="color: #0000FF;">)</span>
for i=1 to length(addresses) do
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"--------------------- ------------\n"</span><span style="color: #0000FF;">)</span>
printf(1,"%-22s %s\n", separateHouseNumber(addresses[i]))
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">addresses</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
end for
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%-22s %s\n"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">separateHouseNumber</span><span style="color: #0000FF;">(</span><span style="color: #000000;">addresses</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]))</span>
end procedure
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
main()</lang>
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>
<!--</syntaxhighlight>-->
{{out}}
<pre>
Line 818 ⟶ 1,381:
=={{header|Python}}==
<!-- ?? missing code ?? -->
<langsyntaxhighlight lang="python">
Plataanstraat 5 split as (Plataanstraat, 5)
Straat 12 split as (Straat, 12)
Line 851 ⟶ 1,414:
Marktplatz 31 split as (Marktplatz, 31)
Schmidener Weg 3 split as (Schmidener Weg, 3)
Karl-Weysser-Str. 6 split as (Karl-Weysser-Str., 6)''')</langsyntaxhighlight>
 
=={{header|Racket}}==
Line 857 ⟶ 1,420:
Same as other regexp-splittings on this page. (I don't see much point in this, but the related [[Starting_a_web_browser]] seems like a good idea.)
 
<langsyntaxhighlight lang="racket">
#lang racket
 
Line 909 ⟶ 1,472:
(cond [(splits-adressen str) => cdr]
[else '???])))
</syntaxhighlight>
</lang>
 
{{out}}
Line 947 ⟶ 1,510:
"Schmidener Weg 3" -> ("Schmidener Weg" "3")
"Karl-Weysser-Str. 6" -> ("Karl-Weysser-Str." "6")
</pre>
 
=={{header|Raku}}==
(formerly Perl 6)
An unquestioning translation of the Scala example's regex to show how we lay out such regexes for readability in Raku, 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.)
<syntaxhighlight lang="raku" line>say m[
( .*? )
 
[
\s+
(
| \d+ [ \- | \/ ] \d+
| <!before 1940 | 1945> \d+ <[ a..z I . / \x20 ]>* \d*
)
]?
 
$
] for lines;</syntaxhighlight>
{{out}}
<pre>｢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｣
 
</pre>
 
=={{header|REXX}}==
<langsyntaxhighlight lang="rexx">/*REXX program splits an European mail address into an address and a house number. */
!= '│' /*a pipe-ish symbol for $ concatenation*/
$= "Plataanstraat 5" ! ,
Line 1,006 ⟶ 1,725:
(datatype(e, 'N') & pl & \verify("'", p, "M")) then s=s-1
if s==0 then s=n /*if no split, then relocate split to ∞*/
return s /* [↑] indicate where to split the txt*/</langsyntaxhighlight>
{{out|output|text=&nbsp; when using the default (internal) input:}}
<pre>
Line 1,045 ⟶ 1,764:
 
=={{header|Scala}}==
<langsyntaxhighlight Scalalang="scala">object SplitHouseNumber extends App {
val extractor = new scala.util.matching.Regex( """(\s\d+[-/]\d+)|(\s(?!1940|1945)\d+[a-zI. /]*\d*)$|\d+\['][40|45]$""")
 
Line 1,088 ⟶ 1,807:
 
adressen.foreach(s => println(f"$s%-25s split as ${splitsAdressen(s)}"))
}</langsyntaxhighlight>
{{out}}
<pre>Plataanstraat 5 split as (Plataanstraat, 5)
Line 1,125 ⟶ 1,844:
 
=={{header|Sidef}}==
{{trans|Perl 6Raku}}
<langsyntaxhighlight lang="ruby">var re = %r[
( .*? )
(?:
Line 1,145 ⟶ 1,864:
warn "Can't parse: «#{line}»"
}
}</langsyntaxhighlight>
{{out}}
<pre>
Line 1,185 ⟶ 1,904:
=={{header|Tcl}}==
{{trans|Scala}}
<langsyntaxhighlight lang="tcl">proc split_DE_NL_address {streetAddress} {
set RE {(?x)
^ (.*?) (
Line 1,238 ⟶ 1,957:
lassign [split_DE_NL_address $streetAddress] str num
puts "split <$streetAddress> as <$str> <$num>"
}</langsyntaxhighlight>
{{out}}
<pre>
Line 1,275 ⟶ 1,994:
split <Karl-Weysser-Str. 6> as <Karl-Weysser-Str.> <6>
</pre>
 
=={{header|TUSCRIPT}}==
<langsyntaxhighlight lang="tuscript">
$$ MODE DATA
 
Line 1,327 ⟶ 2,047:
 
TRACE *output
</syntaxhighlight>
</lang>
Output:
<pre style='height:30ex;overflow:scroll'>
Line 1,365 ⟶ 2,085:
32 = Schmidener Weg <--> 3
33 = Karl-Weysser-Str. <--> 6
</pre>
 
=={{header|Wren}}==
{{trans|Kotlin}}
{{libheader|Wren-pattern}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="wren">import "./pattern" for Pattern
import "./fmt" for Fmt
 
var digits = "0123456789"
var p = Pattern.new("+1/s")
 
var separateHouseNumber = Fn.new { |address|
var len = address.count
var splits = p.splitAll(address)
var size = splits.count
var last = splits[-1]
var penult = splits[-2]
var house
if (digits.contains(last[0])) {
if (size > 2 && digits.contains(penult[0]) && !penult.startsWith("194")) {
house = penult + " " + last
} else {
house = last
}
} else if (size > 2) {
house = penult + " " + last
} else {
house = ""
}
var street = address.take(len - house.count).join().trimEnd()
return [street, house]
}
 
var addresses = [
"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"
]
System.print("Street House Number")
System.print("--------------------- ------------")
for (address in addresses) {
var res = separateHouseNumber.call(address)
var street = res[0]
var house = res[1]
if (house == "") house = "(none)"
Fmt.print("$-22s $s", street, house)
}</syntaxhighlight>
 
{{out}}
<pre>
Street House Number
--------------------- ------------
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 (none)
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
</pre>
PureFox
9,476

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/247835...352482"