Reduce and generalize a list of string

Question

The goal of this challenge is to reduce a list of string to a shorter more general list of string.

Input

The Input is provided with space between the string (a b c) or in list form (["a","b", "c"]). It's a list list of string that can be of the following form :

aaa
aaaX
aaaX/Y

With aaa any set of non capital alphabetic letter, and X or Y any digit between 0 and 9.

Ouput

A list of generalized string that can be separated by anything. String are of the form :

aaa
aaaX
aaaX/Y

With aaa any set of non capital alphabetic letter that were in the input list. X and Y stay the same and symbolise the digit. The goal of the challenge is to reduce the input list of string into their generic representation.

Examples

Two strings can be reduced :

Input : regex1 regex2 split1/0
Output : regexX splitX/Y

Full example :

Input : toto toto titi titi1 titi2 titi5 tutu tutu0 tutu1 tutu1/2 tutu0/1
Output : toto titi titiX tutu tutuX tutuX/Y

Another example :

Input: ["foo0","bar0","baz0/0","eth0/0","eth0/1","eth1/0","eth1/1","vlan8","modem0"]

Output: ["fooX","barX","bazX/Y","ethX/Y","vlanX","modemX"]

Scoring

This is code-golf; shortest code in bytes wins.

Can we take array of strings input, i.e. ["regex1","regex2","split1/0"]? — Leaky Nun
– Leaky Nun, Commented Aug 10, 2016 at 15:13
You may want to put the last line elsewhere, at least not in the scoring section — Leaky Nun
– Leaky Nun, Commented Aug 10, 2016 at 15:16

Leaky Nun · Accepted Answer · 2016-08-10 15:26:25Z

9

Retina, 25 18 13 bytes

6 byte thanks to FryAmTheEggman, and for inspiration of extra 1 byte.

\d
X
/X
/Y
D`

Try it online!

edited Aug 10, 2016 at 15:26

answered Aug 10, 2016 at 15:11

Leaky Nun

50.6k7 gold badges115 silver badges291 bronze badges

\$\begingroup\$ Wow, Upvoted because 120 seconds to answer is so impressive ! \$\endgroup\$

Jylo
– Jylo

2016-08-10 15:12:34 +00:00
Commented Aug 10, 2016 at 15:12
2

\$\begingroup\$ @Pierre.Sassoulas This site has seen faster answers. \$\endgroup\$

Leaky Nun
– Leaky Nun

2016-08-10 15:13:32 +00:00
Commented Aug 10, 2016 at 15:13

Add a comment |

Ton Hospel · Accepted Answer · 2016-08-11 13:09:27Z

5

Perl, 29 27 bytes

Includes +1 for -p

Give input list as seperate lines on STDIN:

perl reduce.pl
regex1
regex2
split1/0
^D

reduce.pl:

#!/usr/bin/perl -p
s/\d/X/&&s//Y/;$_ x=!$$_++

edited Aug 11, 2016 at 13:09

answered Aug 10, 2016 at 15:37

Ton Hospel

15k1 gold badge23 silver badges45 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

Dyalog APL, 21 bytes

∪'/\d' '\d'⎕R'/Y' 'X'

⎕R regex replaces the left-side strings with the right-side ones

∪ returns the unique elements

TryAPL online!

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Aug 10, 2016 at 16:17

Adám

31.8k4 gold badges131 silver badges293 bronze badges

Add a comment |

Leaky Nun · Accepted Answer · 2016-08-11 04:16:54Z

3

Brachylog, 61 59 44 42 bytes

2 bytes thanks to Fatalize.

:{:ef:{~s"0123456789","X".;?.}ac.}a:{rbh"/",?rbr:"Y"c.;?.}ad.
:{:ef:{~s"0123456789","X".;?.}ac.L(rbh"/",Lrbr:"Y"c.;.)}ad.
:{s"/",?rbbbr:"X/Y"c.;.?t~s@A;?rbr:"X"c.}ad.
:{s"/",?rbbbr:"X/Y"c.|.t~s@A|rbr:"X"c.}ad.

Try it online!

edited Aug 11, 2016 at 4:16

answered Aug 10, 2016 at 16:12

Leaky Nun

50.6k7 gold badges115 silver badges291 bronze badges

Add a comment |

orlp · Accepted Answer · 2016-08-10 15:47:44Z

2

Python, 69 bytes

import re
lambda s:set(re.sub("\d","X",s).replace("/X","/Y").split())

edited Aug 10, 2016 at 15:47

answered Aug 10, 2016 at 15:18

orlp

39.4k8 gold badges82 silver badges197 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

Javascript, 92 78 bytes

a=a=>[...new Set(a.replace(/\d/g,"X").replace(/\/./g,"/Y").split` `)].join` `;

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Aug 10, 2016 at 17:11

Bald Bantha

5333 silver badges15 bronze badges

\$\begingroup\$ Oh whoops... I'll go fix that \$\endgroup\$

Bald Bantha
– Bald Bantha

2016-08-10 17:45:53 +00:00
Commented Aug 10, 2016 at 17:45
1

\$\begingroup\$ You don't need a bunch of that boilerplate, just write this as a=>[...new Set(a.replace(/[0-9]/g,"X").replace(/\/./g,"/Y").split` `)].join` `. Also why not use \d instead of [0-9]? \$\endgroup\$

Neil
– Neil

2016-08-11 02:33:21 +00:00
Commented Aug 11, 2016 at 2:33
\$\begingroup\$ I tried the first suggestion, JSfiddle didn't like it. I'll try it on babel. \$\endgroup\$

Bald Bantha
– Bald Bantha

2016-08-11 13:29:08 +00:00
Commented Aug 11, 2016 at 13:29

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

PHP, 104 bytes

<?=join(' ',array_unique(explode(' ',preg_replace('%\d%','X',preg_replace('%\d/\d%', 'X/Y',$argv[1])))))

expects input as single argument

I could replace the join(' ',array_unique(explode(' ',...))) with preg_replace('%(\b\w+\b)(?=.*\b\1\b)%','',...), but it´s 6 bytes shorter via the array.

127 bytes for list of arguments:

<?foreach($argv as$i=>$s)if($i)$r[]=preg_replace('%\d%','X',preg_replace('%\d/\d%', 'X/Y',$s));echo join(' ',array_unique($r));

120 bytes for a function on an array:

function r($a){foreach($a as$s)$r[]=preg_replace('%\d%','X',preg_replace('%\d/\d%', 'X/Y',$s));return array_unique($r);}

Stack Exchange Network

Reduce and generalize a list of string

Input

Ouput

Examples

Scoring

7 Answers 7

Retina, 25 18 13 bytes

Perl, 29 27 bytes

Dyalog APL, 21 bytes

Brachylog, 61 59 44 42 bytes

Python, 69 bytes

Javascript, 92 78 bytes

PHP, 104 bytes

Your Answer

Hot Network Questions

Reduce and generalize a list of string

Input

Ouput

Examples

Scoring

7 Answers 7

Retina, 25 18 13 bytes

Perl, 29 27 bytes

Dyalog APL, 21 bytes

Brachylog, 61 59 44 42 bytes

Python, 69 bytes

Javascript, 92 78 bytes

PHP, 104 bytes

Your Answer

Sign up or log in

Post as a guest

Related

Hot Network Questions