Daily Challenge #67- Phone Directory

(ns day-67-phone-directory
  (:require [clojure.string :refer [replace split-lines trim]]))

(def regexps
  "A map of record fields to regular expressions to match them.
  The first capture group is the meaningful part to extract."
  {:phone #"\+(\d+-\d+-\d+-\d+)" :name #"<([^>]+?)>"})

(defn- find-first-group
  "Find `regex` in `book`, then extract the first capture group."
  [book regex]
  (-> regex (re-find book) (get 1)))

(defn- remove-regex
  "Removes the match of `regex` from `book`."
  [book regex]
  (replace book regex ""))

(defn- clean
  "Cleans an `address` into a kinda-human-readable state."
  [address]
  (-> address
      (replace #"_" " ")
      (replace #"[^a-zA-Z0-9 .]" "")
      trim))

(defn- line->record
  "Parse a `line` to a book record.
  `:address` is the leftover part after extracting phone and name."
  [line]
  (let [[record address]
        (->> regexps keys
            (reduce (fn [[record rest] key]
                      [(assoc record key
                              (find-first-group rest (regexps key)))
                       (remove-regex rest (regexps key))])
                    [{} line]))]
    (assoc record :address (clean address))))

(defn phone
  "Returns information about `number` in `book`, or an error message.
  Result depends on how many people with the same `number` were found."
  [book number]
  (let [matching (->> book split-lines (map line->record)
                     (filter #(->> % :phone (= number))))]
    (case (count matching)
      0 (str "Error => Not found: " number)
      1 (let [record (first matching)]
          (format "Phone => %s, Name => %s, Address => %s"
                  (:phone record) (:name record) (:address record)))
      (str "Error => Too many people: " number))))

using System;
using System.Collections.Generic;
using System.Text.RegularExpressions;

public class Program
{
    public static void Main()
    {
        var s = @"/+1-541-754-3010 156 Alphand_St. <J Steeve>
            133, Green, Rd. <E Kustur> NY-56423 ;+1-541-914-3010!
            <Anastasia> +48-421-674-8974 Via Quirinal Roma
            <Too many> some text +48-421-674-8974 ";

        Console.WriteLine(phone(s, "1-541-754-3010"));  // return J Steeve
        Console.WriteLine(phone(s, "1-541-914-3010"));  // return E Kustur
        Console.WriteLine(phone(s, "48-421-674-8974")); // return Error => Too many people: nb
        Console.WriteLine(phone(s, "48-421-674-1234")); // return Error => Not found: nb
    }

    static string phone(string phoneBook, string phoneNumber)
    {
        var entries = new Dictionary<string, PhoneBookEntry>();
        var lines = phoneBook.Split('\n');
        foreach(var line in lines)
        {
            if(PhoneBookEntry.TryParse(line, out PhoneBookEntry entry) && entry.Phone == phoneNumber)
            {
                if(entries.ContainsKey(entry.Phone))
                {
                    return "Error => Too many people: nb";
                }
                entries[entry.Phone] = entry;
            }
        }
        if(entries.TryGetValue(phoneNumber, out PhoneBookEntry result))
        {
            return result.ToString();
        }
        return "Error => Not found: nb";
    }



    private class PhoneBookEntry
    {   
        private static Regex _phoneRe = new Regex(@"\+(\d{1,2}-\d{3}-\d{3}-\d{4})");
        private static Regex _nameRe = new Regex(@"<([^>]+)>");
        private static Regex _specialCharsRe = new Regex(@"[/!;]");

        private PhoneBookEntry(string phone, string address, string name)
        {
            Phone = phone;
            Address = address;
            Name = name;
        }

        public string Phone {get;}
        public string Address {get;}
        public string Name {get;}

        public static bool TryParse(string rawData, out PhoneBookEntry result)
        {
            result = null;
            var phoneMatch = _phoneRe.Match(rawData);
            if(phoneMatch.Success)
            {
                var nameMatch = _nameRe.Match(rawData);
                if(nameMatch.Success)
                {
                    var phone = phoneMatch.Groups[1].Value;
                    var name = nameMatch.Groups[1].Value;
                    var address = _specialCharsRe.Replace(_nameRe.Replace(_phoneRe.Replace(rawData, ""), ""), "").Trim();
                    result = new PhoneBookEntry(phone, address, name);
                    return true;
                }
            }

            return false;
        }

        public override string ToString()
        {
            return $"Phone => {Phone}, Name => {Name}, Address => {Address}";
        }            
    }
}

#!/usr/bin/perl
use warnings;
use strict;

{   package Phone::Book;
    sub new {
        my ($class, $file_handle) = @_;
        my %phonebook;
        while (<$file_handle>) {
            s/\+(\d{1,2}-\d{3}-\d{3}-\d{4})// and my $number = $1;
            s/<(.*?)>// and my $name = $1;
            my $address = s/^[^\w.]*|[^\w.]*$//gr;

            # This is not mentioned in the spec but appears in the examples.
            $address =~ s/_| {2,}/ /g;

            if (exists $phonebook{$number}) {
                $phonebook{$number} = {
                    Error => "Too many people: $number"};
            } else {
                $phonebook{$number} = {
                    Phone => $number, Name => $name, Address => $address};
            }
        }
        bless \%phonebook, $class
    }

    sub search {
        my ($self, $number) = @_;
        if (exists $self->{$number}) {
            return $self->{$number}
        } else {
            return {Error => "Not found: $number"}
        }
    }
}

use Test::More tests => 5;

my $pb = 'Phone::Book'->new(*DATA);

is_deeply $pb->search('00-000-000-0000'), {
    Error => 'Not found: 00-000-000-0000'};

is_deeply $pb->search('1-234-567-8901'), {
    Error => 'Too many people: 1-234-567-8901'};

is_deeply $pb->search('1-541-754-3010'), {
    Phone   => '1-541-754-3010',
    Name    => 'J Steeve',
    Address => '156 Alphand St.'};

is_deeply $pb->search('1-541-914-3010'), {
    Phone   => '1-541-914-3010',
    Name    => 'E Kustur',
    Address => '133, Green, Rd. NY-56423'};

is_deeply $pb->search('48-421-674-8974'), {
    Phone   => '48-421-674-8974',
    Name    => 'Anastasia',
    Address => 'Via Quirinal Roma'};

__DATA__
/+1-541-754-3010 156 Alphand_St. <J Steeve>
 133, Green, Rd. <E Kustur> NY-56423 ;+1-541-914-3010!
<Anastasia> +48-421-674-8974 Via Quirinal Roma
<Duplicate 1> +1-234-567-8901 Long Way, Tipperary
<Duplicate 2> 0, Invisible Path +1-234-567-8901