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

{{trans|Nim}}

V fields = address.split_py()

V last = fields.last

L(address) Addresses

V (street, house) = separateHouseNumber(address)

{{out}}

=={{header|EchoLisp}}==

(lib 'struct)

(lib 'sql)

"Schmidener Weg 3"

"Karl-Weysser-Str. 6"))

{{out}}

<pre>

=={{header|F_Sharp|F#}}==

// 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

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}")

{{out}}

<pre>

=={{header|Go}}==

{{trans|Kotlin}}

import (

fmt.Printf("%-22s %s\n", street, house)

}

{{out}}

{{Works with|GHC|7.8.3}}

{- Recommended package versions to use:

Right r -> return r

pairs <- mapM (splitAddress rx) testSet

{{out}}

<pre>

'''Solution''':

digit=: '0123456789'

nope=: {{>./({.I.y=' '),1+I. special +./@:(E."1) y}}

here=: {{I.1,~y e.digit}}

Sample data:

Straat 12

Straat 12 II

Schmidener Weg 3

Karl-Weysser-Str. 6

┌───────────────────┬────────────────┐

│Straat │12 │

├───────────────────┼────────────────┤

│Karl-Weysser-Str. │6 │

=={{header|jq}}==

"(?<s>.*) (?<n> (\\s\\d+[-/]\\d+) | (\\s(?!1940|1945)\\d+[a-zI. /]*\\d*)$ | \\d+\\['][40|45]$ )"

</pre>

"^ (?<s>.*?) \\s+"

+ " (?<n>\\d* ( \\-|\\/)? \\d*"

| .n |= if . == "" or . == null then "(none)" else . end ;

'''The Task'''

"Plataanstraat 5",

"Straat 12",

| "\(.s|lpad(22)) \(.n)" ) ;

{{out}}

<pre>

=={{header|Julia}}==

Uses the regex from the Perl version.

(

\d* (\-|\/)? \d*

end

end

<pre>

Plataanstraat 5 split as street => Plataanstraat, number => 5

=={{header|Kotlin}}==

val r = Regex("""\s+""")

println("${street.padEnd(22)} ${if (house != "") house else "(none)"}")

}

{{out}}

=={{header|Nim}}==

{{trans|Go}}

from unicode import align

for address in Addresses:

let (street, house) = address.separateHouseNumber()

{{out}}

=={{header|Perl}}==

'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',

$]x;

$number ? printf "%-26s\t%s\n", ($street, $number) : ($_, "\t(no match)");

{{out}}

<pre style="height:35ex">Plataanstraat 5

=={{header|Phix}}==

{{trans|Go}}

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<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>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

{{out}}

<pre>

=={{header|Python}}==

<!-- ?? missing code ?? -->

Plataanstraat 5 split as (Plataanstraat, 5)

Straat 12 split as (Straat, 12)

Marktplatz 31 split as (Marktplatz, 31)

Schmidener Weg 3 split as (Schmidener Weg, 3)

=={{header|Racket}}==

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.)

#lang racket

(cond [(splits-adressen str) => cdr]

[else '???])))

{{out}}

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.)

( .*? )

$

{{out}}

<pre>｢Plataanstraat 5｣

=={{header|REXX}}==

!= '│' /*a pipe-ish symbol for $ concatenation*/

$= "Plataanstraat 5" ! ,

(datatype(e, 'N') & pl & \verify("'", p, "M")) then s=s-1

if s==0 then s=n /*if no split, then relocate split to ∞*/

{{out|output|text=&nbsp; when using the default (internal) input:}}

<pre>

=={{header|Scala}}==

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

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

{{out}}

<pre>Plataanstraat 5 split as (Plataanstraat, 5)

=={{header|Sidef}}==

{{trans|Raku}}

( .*? )

(?:

warn "Can't parse: «#{line}»"

}

{{out}}

<pre>

=={{header|Tcl}}==

{{trans|Scala}}

set RE {(?x)

^ (.*?) (

lassign [split_DE_NL_address $streetAddress] str num

puts "split <$streetAddress> as <$str> <$num>"

{{out}}

<pre>

=={{header|TUSCRIPT}}==

$$ MODE DATA

TRACE *output

Output:

<pre style='height:30ex;overflow:scroll'>

{{libheader|Wren-pattern}}

{{libheader|Wren-fmt}}

import "/fmt" for Fmt

if (house == "") house = "(none)"

Fmt.print("$-22s $s", street, house)

{{out}}