NYSIIS: Difference between revisions

{{trans|Python}}

 

 

F replace_at(String text; position, fromlist, tolist)

‘knight’, ‘mitchell’, ‘o'daniel’]

L(name) names

 

{{out}}

Implementation based on Wikipedia description of the algorithm.

 

#include <iostream> // required for debug code in main() only

#include <iomanip> // required for debug code in main() only

}

 

{{out|Example output}}

<pre>

Refactored code based on other examples to reduce footprint.

 

Class Utils.Phonetic [ Abstract ]

{

 

}

{{out|Examples}}

<pre>

=={{header|D}}==

{{trans|Python}}

 

string replaceAt(in string text, in uint pos, in string[] fromList,

foreach (immutable name; names)

writefln("%11s: %s", name, name.nysiis);

{{out}}

<pre> Bishop: BASAP

=={{header|Go}}==

{{trans|Kotlin}}

 

import (

fmt.Printf("%-16s : %s\n", name, name2)

}

 

{{out}}

=={{header|Java}}==

{{works with|Java|8}}

import static java.lang.System.out;

 

return Vowels.indexOf(c) != -1;

}

 

<pre>Carr -> CAR

{{trans|Python}}

 

for (f, t) in zip(fromlist, tolist)

if startswith(text[position:end], f)

"knight", "mitchell", "o'daniel"]

@printf("%15s: %s\n", name, nysiis(name))

 

{{out}}

 

=={{header|Kotlin}}==

 

val fStrs = listOf("MAC" to "MCC", "KN" to "N", "K" to "C", "PH" to "FF",

println("${name.padEnd(16)} : $name2")

}

 

{{out}}

=={{header|Nim}}==

{{trans|Kotlin}}

 

const

if name2.len > 6:

name2 = "$1($2)".format(name2[0..5], name2[6..^1])

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

my($name) = @_;

$name =~ s/\h([JS]R)|([IVX]+)$//i;

printf "%10s, %s\n", $_, $nysiis;

}

{{out}}

<pre style="height:35ex"> knight, NAGT

=={{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;">isVowel</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">byte</span><span style="color: #0000FF;">)</span>

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

<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;">"All tests completed, %d errors\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">errors</span><span style="color: #0000FF;">)</span>

Note: After some careful consideration, I have decided that all three (see note) tests <i>are</i> in fact correct, or at least follow wp, specifically step 6 <i>before</i> step 7.

{{out}}

=={{header|Python}}==

A literal translation of the algorithm from the [[wp:New York State Identification and Intelligence System|Wikipedia article]].

 

_vowels = 'AEIOU'

'knight', 'mitchell', "o'daniel"]

for name in names:

{{out}}

<pre> Bishop: BASAP

verbose.

 

(require racket/string racket/match)

(define (str-rplc-at str replacement start (end (string-length str)))

 

(for ((n names) (p py-nysiis-names))

 

=={{header|Raku}}==

This implementation removes common name suffixes similar to the reference implementation, even though it is not specified in the task description or on the linked [[wp:New York State Identification and Intelligence System|NYSIIS]] page. This algorithm isn't too friendly to certain French kings. :)

 

$name.uc.subst: /\h (<[JS]>R) | (<[IVX]>+) $/, '';

}

}

printf "%10s, %s\n", $_, $nysiis;

 

Output:

If the rule of only returning (up to) six characters is to be enforced, then the last REXX statement should be

replaced with:

@@= "Bishop brown_sr browne_III browne_IV Carlson Carr Chapman D'Souza de_Sousa Franklin",

"Greene Harper Hoyle-Johnson Jacobs knight Larson Lawrence Lawson Louis_XVI Lynch",

if right(key, 2)=='AY' then key= left(key, length(key) -2)"Y" /* " A in AY*/

if right(key, 1)=='A' then key= left(key, max(1, length(key) -1)) /* " A */

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

<pre>

 

=={{header|Tcl}}==

# Normalize to first word, uppercased, without non-letters

set name [regsub -all {[^A-Z]+} [string toupper [regexp -inline {\S+} $name]] ""]

}

return $name

Demonstrating:

knight mitchell "o'daniel" "brown sr" "browne III"

"browne IV" "O'Banion" Mclaughlin McCormack Chapman

} {

puts "$name -> [nysiis $name]"

{{out}}

<pre>

{{libheader|Wren-pattern}}

{{libheader|Wren-fmt}}

import "/pattern" for Pattern

import "/fmt" for Fmt

if (name2.count > 6) name2 = Fmt.swrite("$s($s)", name2[0..5], name2[6..-1])

Fmt.print("$-16s : $s", name, name2)

 

{{out}}

=={{header|zkl}}==

{{trans|Python}}

foreach f,t in (fromList.zip(toList)){

if(0==text[pos,*].find(f)) return(text.set(pos,f.len(),t));

}

replaceEnd(key, T("S", "AY", "A"), T("", "Y", ""));

"Franklin", "Greene", "Harper", "Jacobs", "Larson", "Lawrence",

"Lawson", "Louis, XVI", "Lynch", "Mackenzie", "Matthews",

"knight", "mitchell", "o'daniel");

{{out}}

<pre>