A well linked challenge

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP












36












$begingroup$


An activity I sometimes do when I'm bored is to write a couple of characters in matching pairs. I then draw lines (over the tops never below) to connect these characters. For example I might write $abcbac$ and then I would draw the lines as:



First Link



Or I might write $abbcac$



Second Link



Once I've drawn these lines I try to draw closed loops around chunks so that my loop doesn't intersect any of the lines I just drew. For example, in the first one the only loop we can draw is around the entire thing, but in the second one we can draw a loop around just the $b$s (or everything else)



Loop drawn



If we play around with this for a little while we will find that some strings can only be drawn so that closed loops contain all or none of the letters (like our first example). We will call such strings well linked strings.



Note that some strings can be drawn in multiple ways. For example $bbbb$ can be drawn in both of the following ways (and a third not included):



Way 1 or Way 2



If one of these ways can be drawn such that a closed loop can be made to contain some of the characters without intersecting any of the lines, then the string is not well linked. (so $bbbb$ is not well linked)



Task



Your task is to write a program to identify strings that are well linked. Your input will consist of a string where every character appears an even number of times, and your output should be one of two distinct consistent values, one if the strings are well linked and the other otherwise.



In addition your program must be a well linked string meaning



  • Every character appears an even number of times in your program.


  • It should output the truthy value when passed itself.


Your program should be able to produce the correct output for any string consisting of characters from printable ASCII or your own program. With each character appearing an even number of times.



Answers will be scored as their lengths in bytes with fewer bytes being a better score.



Hint




A string is not well linked iff a contiguous non-empty strict substring exists such that each character appears an even number of times in that substring.




Test Cases



abcbac -> True
abbcac -> False
bbbb -> False
abacbc -> True
abcbabcb -> True
abcbca -> False









share|improve this question











$endgroup$







  • 1




    $begingroup$
    Test case: abcbca -> False.
    $endgroup$
    – Ørjan Johansen
    Feb 3 at 0:56










  • $begingroup$
    I think your hint contains a superfluous there.
    $endgroup$
    – Jonathan Frech
    Feb 3 at 1:05






  • 2




    $begingroup$
    So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
    $endgroup$
    – Deadcode
    Feb 4 at 6:11










  • $begingroup$
    What kinds of characters can be in the input?
    $endgroup$
    – xnor
    Feb 4 at 6:43










  • $begingroup$
    @xnor I added it to the challenge. Hopefully that clears that up.
    $endgroup$
    – Sriotchilism O'Zaic
    Feb 4 at 14:34















36












$begingroup$


An activity I sometimes do when I'm bored is to write a couple of characters in matching pairs. I then draw lines (over the tops never below) to connect these characters. For example I might write $abcbac$ and then I would draw the lines as:



First Link



Or I might write $abbcac$



Second Link



Once I've drawn these lines I try to draw closed loops around chunks so that my loop doesn't intersect any of the lines I just drew. For example, in the first one the only loop we can draw is around the entire thing, but in the second one we can draw a loop around just the $b$s (or everything else)



Loop drawn



If we play around with this for a little while we will find that some strings can only be drawn so that closed loops contain all or none of the letters (like our first example). We will call such strings well linked strings.



Note that some strings can be drawn in multiple ways. For example $bbbb$ can be drawn in both of the following ways (and a third not included):



Way 1 or Way 2



If one of these ways can be drawn such that a closed loop can be made to contain some of the characters without intersecting any of the lines, then the string is not well linked. (so $bbbb$ is not well linked)



Task



Your task is to write a program to identify strings that are well linked. Your input will consist of a string where every character appears an even number of times, and your output should be one of two distinct consistent values, one if the strings are well linked and the other otherwise.



In addition your program must be a well linked string meaning



  • Every character appears an even number of times in your program.


  • It should output the truthy value when passed itself.


Your program should be able to produce the correct output for any string consisting of characters from printable ASCII or your own program. With each character appearing an even number of times.



Answers will be scored as their lengths in bytes with fewer bytes being a better score.



Hint




A string is not well linked iff a contiguous non-empty strict substring exists such that each character appears an even number of times in that substring.




Test Cases



abcbac -> True
abbcac -> False
bbbb -> False
abacbc -> True
abcbabcb -> True
abcbca -> False









share|improve this question











$endgroup$







  • 1




    $begingroup$
    Test case: abcbca -> False.
    $endgroup$
    – Ørjan Johansen
    Feb 3 at 0:56










  • $begingroup$
    I think your hint contains a superfluous there.
    $endgroup$
    – Jonathan Frech
    Feb 3 at 1:05






  • 2




    $begingroup$
    So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
    $endgroup$
    – Deadcode
    Feb 4 at 6:11










  • $begingroup$
    What kinds of characters can be in the input?
    $endgroup$
    – xnor
    Feb 4 at 6:43










  • $begingroup$
    @xnor I added it to the challenge. Hopefully that clears that up.
    $endgroup$
    – Sriotchilism O'Zaic
    Feb 4 at 14:34













36












36








36


3



$begingroup$


An activity I sometimes do when I'm bored is to write a couple of characters in matching pairs. I then draw lines (over the tops never below) to connect these characters. For example I might write $abcbac$ and then I would draw the lines as:



First Link



Or I might write $abbcac$



Second Link



Once I've drawn these lines I try to draw closed loops around chunks so that my loop doesn't intersect any of the lines I just drew. For example, in the first one the only loop we can draw is around the entire thing, but in the second one we can draw a loop around just the $b$s (or everything else)



Loop drawn



If we play around with this for a little while we will find that some strings can only be drawn so that closed loops contain all or none of the letters (like our first example). We will call such strings well linked strings.



Note that some strings can be drawn in multiple ways. For example $bbbb$ can be drawn in both of the following ways (and a third not included):



Way 1 or Way 2



If one of these ways can be drawn such that a closed loop can be made to contain some of the characters without intersecting any of the lines, then the string is not well linked. (so $bbbb$ is not well linked)



Task



Your task is to write a program to identify strings that are well linked. Your input will consist of a string where every character appears an even number of times, and your output should be one of two distinct consistent values, one if the strings are well linked and the other otherwise.



In addition your program must be a well linked string meaning



  • Every character appears an even number of times in your program.


  • It should output the truthy value when passed itself.


Your program should be able to produce the correct output for any string consisting of characters from printable ASCII or your own program. With each character appearing an even number of times.



Answers will be scored as their lengths in bytes with fewer bytes being a better score.



Hint




A string is not well linked iff a contiguous non-empty strict substring exists such that each character appears an even number of times in that substring.




Test Cases



abcbac -> True
abbcac -> False
bbbb -> False
abacbc -> True
abcbabcb -> True
abcbca -> False









share|improve this question











$endgroup$




An activity I sometimes do when I'm bored is to write a couple of characters in matching pairs. I then draw lines (over the tops never below) to connect these characters. For example I might write $abcbac$ and then I would draw the lines as:



First Link



Or I might write $abbcac$



Second Link



Once I've drawn these lines I try to draw closed loops around chunks so that my loop doesn't intersect any of the lines I just drew. For example, in the first one the only loop we can draw is around the entire thing, but in the second one we can draw a loop around just the $b$s (or everything else)



Loop drawn



If we play around with this for a little while we will find that some strings can only be drawn so that closed loops contain all or none of the letters (like our first example). We will call such strings well linked strings.



Note that some strings can be drawn in multiple ways. For example $bbbb$ can be drawn in both of the following ways (and a third not included):



Way 1 or Way 2



If one of these ways can be drawn such that a closed loop can be made to contain some of the characters without intersecting any of the lines, then the string is not well linked. (so $bbbb$ is not well linked)



Task



Your task is to write a program to identify strings that are well linked. Your input will consist of a string where every character appears an even number of times, and your output should be one of two distinct consistent values, one if the strings are well linked and the other otherwise.



In addition your program must be a well linked string meaning



  • Every character appears an even number of times in your program.


  • It should output the truthy value when passed itself.


Your program should be able to produce the correct output for any string consisting of characters from printable ASCII or your own program. With each character appearing an even number of times.



Answers will be scored as their lengths in bytes with fewer bytes being a better score.



Hint




A string is not well linked iff a contiguous non-empty strict substring exists such that each character appears an even number of times in that substring.




Test Cases



abcbac -> True
abbcac -> False
bbbb -> False
abacbc -> True
abcbabcb -> True
abcbca -> False






code-golf decision-problem restricted-source source-layout






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Feb 4 at 14:34







Sriotchilism O'Zaic

















asked Feb 3 at 0:18









Sriotchilism O'ZaicSriotchilism O'Zaic

35.1k10159369




35.1k10159369







  • 1




    $begingroup$
    Test case: abcbca -> False.
    $endgroup$
    – Ørjan Johansen
    Feb 3 at 0:56










  • $begingroup$
    I think your hint contains a superfluous there.
    $endgroup$
    – Jonathan Frech
    Feb 3 at 1:05






  • 2




    $begingroup$
    So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
    $endgroup$
    – Deadcode
    Feb 4 at 6:11










  • $begingroup$
    What kinds of characters can be in the input?
    $endgroup$
    – xnor
    Feb 4 at 6:43










  • $begingroup$
    @xnor I added it to the challenge. Hopefully that clears that up.
    $endgroup$
    – Sriotchilism O'Zaic
    Feb 4 at 14:34












  • 1




    $begingroup$
    Test case: abcbca -> False.
    $endgroup$
    – Ørjan Johansen
    Feb 3 at 0:56










  • $begingroup$
    I think your hint contains a superfluous there.
    $endgroup$
    – Jonathan Frech
    Feb 3 at 1:05






  • 2




    $begingroup$
    So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
    $endgroup$
    – Deadcode
    Feb 4 at 6:11










  • $begingroup$
    What kinds of characters can be in the input?
    $endgroup$
    – xnor
    Feb 4 at 6:43










  • $begingroup$
    @xnor I added it to the challenge. Hopefully that clears that up.
    $endgroup$
    – Sriotchilism O'Zaic
    Feb 4 at 14:34







1




1




$begingroup$
Test case: abcbca -> False.
$endgroup$
– Ørjan Johansen
Feb 3 at 0:56




$begingroup$
Test case: abcbca -> False.
$endgroup$
– Ørjan Johansen
Feb 3 at 0:56












$begingroup$
I think your hint contains a superfluous there.
$endgroup$
– Jonathan Frech
Feb 3 at 1:05




$begingroup$
I think your hint contains a superfluous there.
$endgroup$
– Jonathan Frech
Feb 3 at 1:05




2




2




$begingroup$
So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
$endgroup$
– Deadcode
Feb 4 at 6:11




$begingroup$
So to be clear: Whether a string has a total even number of every character is irrelevant to whether it's a well-linked string. That requirement applies only to programs' source code. This is of course only a matter of semantics, because programs are allowed to have undefined behavior for inputted strings having an odd total number of any character (and at least one submitted program takes advantage of this).
$endgroup$
– Deadcode
Feb 4 at 6:11












$begingroup$
What kinds of characters can be in the input?
$endgroup$
– xnor
Feb 4 at 6:43




$begingroup$
What kinds of characters can be in the input?
$endgroup$
– xnor
Feb 4 at 6:43












$begingroup$
@xnor I added it to the challenge. Hopefully that clears that up.
$endgroup$
– Sriotchilism O'Zaic
Feb 4 at 14:34




$begingroup$
@xnor I added it to the challenge. Hopefully that clears that up.
$endgroup$
– Sriotchilism O'Zaic
Feb 4 at 14:34










11 Answers
11






active

oldest

votes


















19





+200







$begingroup$

Regex (ECMAScript 2018 or .NET), 140 126 118 100 98 82 bytes



^(?!(^.*)(.+)(.*$)(?<!^2|^1(?=(|(<?(|(?!8).)*(8|3$)1)2)*$).*(.)+3$)!?=*)



This is much slower than the 98 byte version, because the ^1 is left of the lookahead and is thus evaluated after it. See below for a simple switcheroo that regains the speed. But due to this, the two TIOs below are limited to completing a smaller test case set than before, and the .NET one is too slow to check its own regex.



Try it online! (ECMAScript 2018)
Try it online! (.NET)



To drop 18 bytes (118 → 100), I shamelessly stole a really nice optimization from Neil's regex that avoids the need to put a lookahead inside the negative lookbehind (yielding an 80 byte unrestricted regex). Thank you, Neil!



That became obsolete when it dropped an incredible 16 more bytes (98 → 82) thanks to jaytea's ideas which led to a 69 byte unrestricted regex! It's much slower, but that's golf!



Note that the (|( no-ops for making the regex well-linked have the result of making the it evaluate very slowly under .NET. They do not have this effect in ECMAScript because zero-width optional matches are treated as non-matches.



ECMAScript prohibits quantifiers on assertions, so this makes golfing the restricted-source requirements harder. However, at this point it's so well-golfed that I don't think lifting that particular restriction would open up any further golfing possibilities.



Without the extra characters needed to make it pass the restrictions (101 69 bytes):



^(?!(.*)(.+)(.*$)(?<!^2|^1(?=((((?!8).)*(8|3$))2)*$).*(.)+3))



It's slow, but this simple edit (for just 2 extra bytes) regains all the lost speed and more:



^(?!(.*)(.+)(.*$)(?<!^2|(?=1((((?!8).)*(8|3$))2)*$)^1.*(.)+3))



^
(?!
(.*) # cycle through all starting points of substrings;
# 1 = part to exclude from the start
(.+) # cycle through all ending points of non-empty substrings;
# 2 = the substring
(.*$) # 3 = part to exclude from the end
(?<! # Assert that every character in the substring appears a total
# even number of times.
^2 # Assert that our substring is not the whole string. We don't
# need a $ anchor because we were already at the end before
# entering this lookbehind.
| # Note that the following steps are evaluated right to left,
# so please read them from bottom to top.
^1 # Do not look further left than the start of our substring.
(?=
# Assert that the number of times the character 8 appears in our
# substring is odd.
(
(
((?!8).)*
(8|3$) # This is the best part. Until the very last iteration
# of the loop outside the 2 loop, this alternation
# can only match 8, and once it reaches the end of the
# substring, it can match 3$ only once. This guarantees
# that it will match 8 an odd number of times, in matched
# pairs until finding one more at the end of the substring,
# which is paired with the 3$ instead of another 8.
)2
)*$
)
.*(.)+ # 8 = cycle through all characters in this substring
# Assert (within this context) that at least one character appears an odd
# number of times within our substring. (Outside this negative lookbehind,
# that is equivalent to asserting that no character appears an odd number
# of times in our substring.)
3 # Skip to our substring (do not look further right than its end)
)
)


I wrote it using molecular lookahead (103 69 bytes) before converting it to variable-length lookbehind:



^(?!.*(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$))



^
(?!
.*(?*(.+)(.*$)) # cycle through all non-empty substrings;
# 1 = the current substring;
# 2 = the part to exclude from the end
(?! # Assert that no character in the substring appears a
# total even number of times.
^1$ # Assert that our substring is not the whole string
# (i.e. it's a strict substring)
|
(?*(.)+.*2$) # 3 = Cycle through all characters that appear in this
# substring.
# Assert (within this context) that this character appears an odd number
# of times within our substring.
(
(
((?!3).)*
(3|2$)
)2
)*$
)
)


And to aid in making my regex itself well-linked, I've been using a variation of the above regex:



(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$)1



When used with regex -xml,rs -o, this identifies a strict substring of the input that contains an even number of every character (if one exists). Sure, I could have written a non-regex program to do this for me, but where would be the fun in that?






share|improve this answer











$endgroup$








  • 8




    $begingroup$
    wtf it's still being golfed
    $endgroup$
    – ASCII-only
    Feb 4 at 8:51










  • $begingroup$
    @ASCII-only and still being golfed...
    $endgroup$
    – Quintec
    Feb 5 at 14:27


















11












$begingroup$

Jelly, 20 bytes



ĠẈḂẸẆṖÇ€Ạ
ĠẈḂẸ
ẆṖÇ€Ạ


Try it online!



The first line is ignored. It's only there to satisfy the condition that every character appear an even number of times.



The next line first Ġroups indices by their value. If we then take the length of each sublist in the resulting list (), we get the number of times each character appears. To check whether any of these are non-even, we get the last it of each count and ask whether there xists a truthy (nonzero) value.



Therefore, this helper link returns whether a substring cannot be circled.



In the main link, we take all substrings of the input (), op off the last one (so that we don't check whether the entire string can be circled), and run the helper link (Ç) on ach substring. The result is then whether ll substrings cannot be circled.






share|improve this answer











$endgroup$












  • $begingroup$
    So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
    $endgroup$
    – Erik the Outgolfer
    Feb 3 at 9:58


















7












$begingroup$


J, 42 bytes



(*#'.,012&|@~#')=1#.[:,([:*/0=2&|@#/.~).


Try it online!



explanation



(*#'.,012&|@~#') = 1 #. [: , ([: */ 0 = 2&|@#/.~).

(*#'.,012&|@~#') NB. this evaluates to 1
NB. while supplying extra
NB. chars we need. hence...
= NB. does 1 equal...
1 #. NB. the sum of...
[: , NB. the flatten of...
( ). NB. the verb in parens applied
NB. to every suffix of every
NB. prefix, ie, all contiguous
NB. substrings
([: */ 0 = 2&|@#/.~) NB. def of verb in paren:
/.~ NB. when we group by each
NB. distinct char...
[: */ NB. is it the case that
NB. every group...
@# NB. has a length...
0 = 2&| NB. divisible by 2...





share|improve this answer











$endgroup$








  • 1




    $begingroup$
    @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
    $endgroup$
    – Ørjan Johansen
    Feb 4 at 3:12







  • 1




    $begingroup$
    @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
    $endgroup$
    – Deadcode
    Feb 4 at 9:12


















5












$begingroup$


Python 2, 74 bytes





bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)


Try it online!



Iterates through the string, keeping track in P of the set of characters seen an odd number of times so far. The list d stores all past values of P, and if see the current P already in d, this means that in the characters seen since that time, each character has appeared an even number of times. If so, check if we've gone through the entire input: if we have, accept because the whole string is paired as expected, and otherwise reject.



Now about the source restriction. Characters needing pairing are stuffed into various harmless places, underlined below:



bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)
_____ _ _ _ _ ___ ___


The f<s evaluates to 0 while pairing off an f, taking advantage of the function name also being f so that it's defined (by the time the function is called.) The 0^0 absorbs an ^ symbol.



The 0 in P=0 is unfortunate: in Python evaluates to an empty dict rather than an empty set as we want, and here we can put in any non-character element and it will be harmless. I don't see anything spare to put in though, and have put in a 0 and duplicated it in bmn0, costing 2 bytes. Note that initial arguments are evaluated when the function is defined, so variables we define ourselves can't be put in here.






share|improve this answer











$endgroup$




















    5












    $begingroup$


    Python 3.8 (pre-release), 66 bytes





    lambda l,b=id:len(str(b:=b^c)for(c)in l)<len(l)#,<^fmnost#


    Try it online!



    The Era of Assignment Expressions is upon us. With PEP 572 included in Python 3.8, golfing will never be the same. You can install the early developer preview 3.8.0a1 here.



    Assignment expressions let you use := to assign to a variable inline while evaluating to that value. For example, (a:=2, a+1) gives (2, 3). This can of course be used to store variables for reuse, but here we go a step further and use it as an accumulator in a comprehension.



    For example, this code computes the cumulative sums [1, 3, 6]



    t=0
    l=[1,2,3]
    print([t:=t+x for x in l])


    Note how with each pass through the list comprehension, the cumulative sum t is increased by x and the new value is stored in the list produced by the comprehension.



    Similarly, b:=b^c updates the set of characters b to toggle whether it includes character c, and evaluates to the new value of b. So, the code [b:=b^cfor c in l] iterates over characters c in l and accumulates the set of characters seen an odd number of times in each non-empty prefix.



    This list is checked for duplicates by making it a set comprehension instead and seeing if its length is smaller than that of s, which means that some repeats were collapsed. If so, the repeat means that in the portion of s seen in between those times every character encountered an even number of numbers, making the string non-well-linked. Python doesn't allow sets of sets for being unhashable, so the inner sets are converted to strings instead.



    The set b is initialized as an optional arguments, and successfully gets modified in the function scope. I was worried this would make the function non-reusable, but it seems to reset between runs.



    For the source restriction, unpaired characters are stuffed in a comment at the end. Writing for(c)in l rather than for c in l cancels the extra parens for free. We put id into the initial set b, which is harmless since it can start as any set, but the empty set can't be written as because Python will make an empty dictionary. Since the letters i and d are among those needing pairing, we can put the function id there.



    Note that the code outputs negated booleans, so it will correctly give False on itself.






    share|improve this answer











    $endgroup$












    • $begingroup$
      Try it online!
      $endgroup$
      – Dennis
      yesterday


















    3












    $begingroup$


    Perl 6, 76 bytes





    *.comb[^*X+(^*).map(^*)].grep($_&[&]($_)).none.Bag*.none%2#*^+XBob2rec%#


    Try it online!



    A Whatever lambda that returns a None Junction of None Junctions that can be boolified to a truthy/falsey value. I would recommend not removing the ? that boolifies the return result though, otherwise the output gets rather large.



    This solution is a little more complex than needed, due to several involved functions being unlinked, e.g. .., all, >>, %% etc. Without the source restriction, this could be 43 bytes:





    *.comb[^*X.. ^*].grep(?*).one.Bag*.all%%2


    Try it online!



    Explanation:



    *.comb # Split the string to a list of characters
    [^*X+(^*).map(^*)] # Get all substrings, alongside some garbage
    .grep($_&[&]($_)) # Filter out the garbage (empty lists, lists with Nil values)
    .none # Are none of
    .Bag* # The count of characters in each substring
    .none%2 # All not divisible by 2

    #*^+XBob2rec%# And garbage to even out character counts





    share|improve this answer











    $endgroup$




















      3












      $begingroup$

      Perl 5 -p, 94, 86, 78 bytes



      m-.+(?$Q)(?!)-}


      ouput 0 if well-linked 1 otherwise.



      78 bytes



      86 bytes



      94 bytes



      How it works




      • -p with (. I still had one source constraint )) left and the characters !()1< left over, so I changed a + into 1, and inserted the useless (?!,<)? to consume the rest.




      shareKŒIKεSIS¢ÈP}àÈ


      Outputs 1 if the string is well-linked, and 0 if the string is not well-linked.



      Try it online or verify all test cases.



      Explanation:





      The base program is ŒsKεsS¢ÈP}à (11 bytes), which outputs 0 if well-linked and 1 if not well-linked. The trailing È (is_even) is a semi no-op that inverts the output, so 1 for well-linked strings and 0 for not well-linked strings. The other parts are no-ops to comply to the challenge rules.



      Œε¢Pà}K # No-ops: substrings, map, count, product, maximum, close map, remove
      # Due to the last remove, we're back at the (implicit) input again
      Œ # Take the substrings of the input
      IK # Remove the input itself from that list of substrings
      ε # Map each substring to:
      S # No-op: transform the substring into a list of characters
      IS # Get the input-string as a list of characters
      ¢ # Count the occurrence of each character in the current substring
      È # Check which counts are even (1 if truthy; 0 if falsey)
      P # Take the product of that
      }à # After the map: check if any are truthy by taking the maximum
      È # Semi no-op: check if this maximum is even (0 becomes 1; 1 becomes 0)
      # (and output the result implicitly)





      share|improve this answer











      $endgroup$












        Your Answer





        StackExchange.ifUsing("editor", function ()
        return StackExchange.using("mathjaxEditing", function ()
        StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
        StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
        );
        );
        , "mathjax-editing");

        StackExchange.ifUsing("editor", function ()
        StackExchange.using("externalEditor", function ()
        StackExchange.using("snippets", function ()
        StackExchange.snippets.init();
        );
        );
        , "code-snippets");

        StackExchange.ready(function()
        var channelOptions =
        tags: "".split(" "),
        id: "200"
        ;
        initTagRenderer("".split(" "), "".split(" "), channelOptions);

        StackExchange.using("externalEditor", function()
        // Have to fire editor after snippets, if snippets enabled
        if (StackExchange.settings.snippets.snippetsEnabled)
        StackExchange.using("snippets", function()
        createEditor();
        );

        else
        createEditor();

        );

        function createEditor()
        StackExchange.prepareEditor(
        heartbeatType: 'answer',
        autoActivateHeartbeat: false,
        convertImagesToLinks: false,
        noModals: true,
        showLowRepImageUploadWarning: true,
        reputationToPostImages: null,
        bindNavPrevention: true,
        postfix: "",
        imageUploader:
        brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
        contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
        allowUrls: true
        ,
        onDemand: true,
        discardSelector: ".discard-answer"
        ,immediatelyShowMarkdownHelp:true
        );



        );













        draft saved

        draft discarded


















        StackExchange.ready(
        function ()
        StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f179422%2fa-well-linked-challenge%23new-answer', 'question_page');

        );

        Post as a guest















        Required, but never shown

























        11 Answers
        11






        active

        oldest

        votes








        11 Answers
        11






        active

        oldest

        votes









        active

        oldest

        votes






        active

        oldest

        votes









        19





        +200







        $begingroup$

        Regex (ECMAScript 2018 or .NET), 140 126 118 100 98 82 bytes



        ^(?!(^.*)(.+)(.*$)(?<!^2|^1(?=(|(<?(|(?!8).)*(8|3$)1)2)*$).*(.)+3$)!?=*)



        This is much slower than the 98 byte version, because the ^1 is left of the lookahead and is thus evaluated after it. See below for a simple switcheroo that regains the speed. But due to this, the two TIOs below are limited to completing a smaller test case set than before, and the .NET one is too slow to check its own regex.



        Try it online! (ECMAScript 2018)
        Try it online! (.NET)



        To drop 18 bytes (118 → 100), I shamelessly stole a really nice optimization from Neil's regex that avoids the need to put a lookahead inside the negative lookbehind (yielding an 80 byte unrestricted regex). Thank you, Neil!



        That became obsolete when it dropped an incredible 16 more bytes (98 → 82) thanks to jaytea's ideas which led to a 69 byte unrestricted regex! It's much slower, but that's golf!



        Note that the (|( no-ops for making the regex well-linked have the result of making the it evaluate very slowly under .NET. They do not have this effect in ECMAScript because zero-width optional matches are treated as non-matches.



        ECMAScript prohibits quantifiers on assertions, so this makes golfing the restricted-source requirements harder. However, at this point it's so well-golfed that I don't think lifting that particular restriction would open up any further golfing possibilities.



        Without the extra characters needed to make it pass the restrictions (101 69 bytes):



        ^(?!(.*)(.+)(.*$)(?<!^2|^1(?=((((?!8).)*(8|3$))2)*$).*(.)+3))



        It's slow, but this simple edit (for just 2 extra bytes) regains all the lost speed and more:



        ^(?!(.*)(.+)(.*$)(?<!^2|(?=1((((?!8).)*(8|3$))2)*$)^1.*(.)+3))



        ^
        (?!
        (.*) # cycle through all starting points of substrings;
        # 1 = part to exclude from the start
        (.+) # cycle through all ending points of non-empty substrings;
        # 2 = the substring
        (.*$) # 3 = part to exclude from the end
        (?<! # Assert that every character in the substring appears a total
        # even number of times.
        ^2 # Assert that our substring is not the whole string. We don't
        # need a $ anchor because we were already at the end before
        # entering this lookbehind.
        | # Note that the following steps are evaluated right to left,
        # so please read them from bottom to top.
        ^1 # Do not look further left than the start of our substring.
        (?=
        # Assert that the number of times the character 8 appears in our
        # substring is odd.
        (
        (
        ((?!8).)*
        (8|3$) # This is the best part. Until the very last iteration
        # of the loop outside the 2 loop, this alternation
        # can only match 8, and once it reaches the end of the
        # substring, it can match 3$ only once. This guarantees
        # that it will match 8 an odd number of times, in matched
        # pairs until finding one more at the end of the substring,
        # which is paired with the 3$ instead of another 8.
        )2
        )*$
        )
        .*(.)+ # 8 = cycle through all characters in this substring
        # Assert (within this context) that at least one character appears an odd
        # number of times within our substring. (Outside this negative lookbehind,
        # that is equivalent to asserting that no character appears an odd number
        # of times in our substring.)
        3 # Skip to our substring (do not look further right than its end)
        )
        )


        I wrote it using molecular lookahead (103 69 bytes) before converting it to variable-length lookbehind:



        ^(?!.*(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$))



        ^
        (?!
        .*(?*(.+)(.*$)) # cycle through all non-empty substrings;
        # 1 = the current substring;
        # 2 = the part to exclude from the end
        (?! # Assert that no character in the substring appears a
        # total even number of times.
        ^1$ # Assert that our substring is not the whole string
        # (i.e. it's a strict substring)
        |
        (?*(.)+.*2$) # 3 = Cycle through all characters that appear in this
        # substring.
        # Assert (within this context) that this character appears an odd number
        # of times within our substring.
        (
        (
        ((?!3).)*
        (3|2$)
        )2
        )*$
        )
        )


        And to aid in making my regex itself well-linked, I've been using a variation of the above regex:



        (?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$)1



        When used with regex -xml,rs -o, this identifies a strict substring of the input that contains an even number of every character (if one exists). Sure, I could have written a non-regex program to do this for me, but where would be the fun in that?






        share|improve this answer











        $endgroup$








        • 8




          $begingroup$
          wtf it's still being golfed
          $endgroup$
          – ASCII-only
          Feb 4 at 8:51










        • $begingroup$
          @ASCII-only and still being golfed...
          $endgroup$
          – Quintec
          Feb 5 at 14:27















        19





        +200







        $begingroup$

        Regex (ECMAScript 2018 or .NET), 140 126 118 100 98 82 bytes



        ^(?!(^.*)(.+)(.*$)(?<!^2|^1(?=(|(<?(|(?!8).)*(8|3$)1)2)*$).*(.)+3$)!?=*)



        This is much slower than the 98 byte version, because the ^1 is left of the lookahead and is thus evaluated after it. See below for a simple switcheroo that regains the speed. But due to this, the two TIOs below are limited to completing a smaller test case set than before, and the .NET one is too slow to check its own regex.



        Try it online! (ECMAScript 2018)
        Try it online! (.NET)



        To drop 18 bytes (118 → 100), I shamelessly stole a really nice optimization from Neil's regex that avoids the need to put a lookahead inside the negative lookbehind (yielding an 80 byte unrestricted regex). Thank you, Neil!



        That became obsolete when it dropped an incredible 16 more bytes (98 → 82) thanks to jaytea's ideas which led to a 69 byte unrestricted regex! It's much slower, but that's golf!



        Note that the (|( no-ops for making the regex well-linked have the result of making the it evaluate very slowly under .NET. They do not have this effect in ECMAScript because zero-width optional matches are treated as non-matches.



        ECMAScript prohibits quantifiers on assertions, so this makes golfing the restricted-source requirements harder. However, at this point it's so well-golfed that I don't think lifting that particular restriction would open up any further golfing possibilities.



        Without the extra characters needed to make it pass the restrictions (101 69 bytes):



        ^(?!(.*)(.+)(.*$)(?<!^2|^1(?=((((?!8).)*(8|3$))2)*$).*(.)+3))



        It's slow, but this simple edit (for just 2 extra bytes) regains all the lost speed and more:



        ^(?!(.*)(.+)(.*$)(?<!^2|(?=1((((?!8).)*(8|3$))2)*$)^1.*(.)+3))



        ^
        (?!
        (.*) # cycle through all starting points of substrings;
        # 1 = part to exclude from the start
        (.+) # cycle through all ending points of non-empty substrings;
        # 2 = the substring
        (.*$) # 3 = part to exclude from the end
        (?<! # Assert that every character in the substring appears a total
        # even number of times.
        ^2 # Assert that our substring is not the whole string. We don't
        # need a $ anchor because we were already at the end before
        # entering this lookbehind.
        | # Note that the following steps are evaluated right to left,
        # so please read them from bottom to top.
        ^1 # Do not look further left than the start of our substring.
        (?=
        # Assert that the number of times the character 8 appears in our
        # substring is odd.
        (
        (
        ((?!8).)*
        (8|3$) # This is the best part. Until the very last iteration
        # of the loop outside the 2 loop, this alternation
        # can only match 8, and once it reaches the end of the
        # substring, it can match 3$ only once. This guarantees
        # that it will match 8 an odd number of times, in matched
        # pairs until finding one more at the end of the substring,
        # which is paired with the 3$ instead of another 8.
        )2
        )*$
        )
        .*(.)+ # 8 = cycle through all characters in this substring
        # Assert (within this context) that at least one character appears an odd
        # number of times within our substring. (Outside this negative lookbehind,
        # that is equivalent to asserting that no character appears an odd number
        # of times in our substring.)
        3 # Skip to our substring (do not look further right than its end)
        )
        )


        I wrote it using molecular lookahead (103 69 bytes) before converting it to variable-length lookbehind:



        ^(?!.*(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$))



        ^
        (?!
        .*(?*(.+)(.*$)) # cycle through all non-empty substrings;
        # 1 = the current substring;
        # 2 = the part to exclude from the end
        (?! # Assert that no character in the substring appears a
        # total even number of times.
        ^1$ # Assert that our substring is not the whole string
        # (i.e. it's a strict substring)
        |
        (?*(.)+.*2$) # 3 = Cycle through all characters that appear in this
        # substring.
        # Assert (within this context) that this character appears an odd number
        # of times within our substring.
        (
        (
        ((?!3).)*
        (3|2$)
        )2
        )*$
        )
        )


        And to aid in making my regex itself well-linked, I've been using a variation of the above regex:



        (?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$)1



        When used with regex -xml,rs -o, this identifies a strict substring of the input that contains an even number of every character (if one exists). Sure, I could have written a non-regex program to do this for me, but where would be the fun in that?






        share|improve this answer











        $endgroup$








        • 8




          $begingroup$
          wtf it's still being golfed
          $endgroup$
          – ASCII-only
          Feb 4 at 8:51










        • $begingroup$
          @ASCII-only and still being golfed...
          $endgroup$
          – Quintec
          Feb 5 at 14:27













        19





        +200







        19





        +200



        19




        +200



        $begingroup$

        Regex (ECMAScript 2018 or .NET), 140 126 118 100 98 82 bytes



        ^(?!(^.*)(.+)(.*$)(?<!^2|^1(?=(|(<?(|(?!8).)*(8|3$)1)2)*$).*(.)+3$)!?=*)



        This is much slower than the 98 byte version, because the ^1 is left of the lookahead and is thus evaluated after it. See below for a simple switcheroo that regains the speed. But due to this, the two TIOs below are limited to completing a smaller test case set than before, and the .NET one is too slow to check its own regex.



        Try it online! (ECMAScript 2018)
        Try it online! (.NET)



        To drop 18 bytes (118 → 100), I shamelessly stole a really nice optimization from Neil's regex that avoids the need to put a lookahead inside the negative lookbehind (yielding an 80 byte unrestricted regex). Thank you, Neil!



        That became obsolete when it dropped an incredible 16 more bytes (98 → 82) thanks to jaytea's ideas which led to a 69 byte unrestricted regex! It's much slower, but that's golf!



        Note that the (|( no-ops for making the regex well-linked have the result of making the it evaluate very slowly under .NET. They do not have this effect in ECMAScript because zero-width optional matches are treated as non-matches.



        ECMAScript prohibits quantifiers on assertions, so this makes golfing the restricted-source requirements harder. However, at this point it's so well-golfed that I don't think lifting that particular restriction would open up any further golfing possibilities.



        Without the extra characters needed to make it pass the restrictions (101 69 bytes):



        ^(?!(.*)(.+)(.*$)(?<!^2|^1(?=((((?!8).)*(8|3$))2)*$).*(.)+3))



        It's slow, but this simple edit (for just 2 extra bytes) regains all the lost speed and more:



        ^(?!(.*)(.+)(.*$)(?<!^2|(?=1((((?!8).)*(8|3$))2)*$)^1.*(.)+3))



        ^
        (?!
        (.*) # cycle through all starting points of substrings;
        # 1 = part to exclude from the start
        (.+) # cycle through all ending points of non-empty substrings;
        # 2 = the substring
        (.*$) # 3 = part to exclude from the end
        (?<! # Assert that every character in the substring appears a total
        # even number of times.
        ^2 # Assert that our substring is not the whole string. We don't
        # need a $ anchor because we were already at the end before
        # entering this lookbehind.
        | # Note that the following steps are evaluated right to left,
        # so please read them from bottom to top.
        ^1 # Do not look further left than the start of our substring.
        (?=
        # Assert that the number of times the character 8 appears in our
        # substring is odd.
        (
        (
        ((?!8).)*
        (8|3$) # This is the best part. Until the very last iteration
        # of the loop outside the 2 loop, this alternation
        # can only match 8, and once it reaches the end of the
        # substring, it can match 3$ only once. This guarantees
        # that it will match 8 an odd number of times, in matched
        # pairs until finding one more at the end of the substring,
        # which is paired with the 3$ instead of another 8.
        )2
        )*$
        )
        .*(.)+ # 8 = cycle through all characters in this substring
        # Assert (within this context) that at least one character appears an odd
        # number of times within our substring. (Outside this negative lookbehind,
        # that is equivalent to asserting that no character appears an odd number
        # of times in our substring.)
        3 # Skip to our substring (do not look further right than its end)
        )
        )


        I wrote it using molecular lookahead (103 69 bytes) before converting it to variable-length lookbehind:



        ^(?!.*(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$))



        ^
        (?!
        .*(?*(.+)(.*$)) # cycle through all non-empty substrings;
        # 1 = the current substring;
        # 2 = the part to exclude from the end
        (?! # Assert that no character in the substring appears a
        # total even number of times.
        ^1$ # Assert that our substring is not the whole string
        # (i.e. it's a strict substring)
        |
        (?*(.)+.*2$) # 3 = Cycle through all characters that appear in this
        # substring.
        # Assert (within this context) that this character appears an odd number
        # of times within our substring.
        (
        (
        ((?!3).)*
        (3|2$)
        )2
        )*$
        )
        )


        And to aid in making my regex itself well-linked, I've been using a variation of the above regex:



        (?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$)1



        When used with regex -xml,rs -o, this identifies a strict substring of the input that contains an even number of every character (if one exists). Sure, I could have written a non-regex program to do this for me, but where would be the fun in that?






        share|improve this answer











        $endgroup$



        Regex (ECMAScript 2018 or .NET), 140 126 118 100 98 82 bytes



        ^(?!(^.*)(.+)(.*$)(?<!^2|^1(?=(|(<?(|(?!8).)*(8|3$)1)2)*$).*(.)+3$)!?=*)



        This is much slower than the 98 byte version, because the ^1 is left of the lookahead and is thus evaluated after it. See below for a simple switcheroo that regains the speed. But due to this, the two TIOs below are limited to completing a smaller test case set than before, and the .NET one is too slow to check its own regex.



        Try it online! (ECMAScript 2018)
        Try it online! (.NET)



        To drop 18 bytes (118 → 100), I shamelessly stole a really nice optimization from Neil's regex that avoids the need to put a lookahead inside the negative lookbehind (yielding an 80 byte unrestricted regex). Thank you, Neil!



        That became obsolete when it dropped an incredible 16 more bytes (98 → 82) thanks to jaytea's ideas which led to a 69 byte unrestricted regex! It's much slower, but that's golf!



        Note that the (|( no-ops for making the regex well-linked have the result of making the it evaluate very slowly under .NET. They do not have this effect in ECMAScript because zero-width optional matches are treated as non-matches.



        ECMAScript prohibits quantifiers on assertions, so this makes golfing the restricted-source requirements harder. However, at this point it's so well-golfed that I don't think lifting that particular restriction would open up any further golfing possibilities.



        Without the extra characters needed to make it pass the restrictions (101 69 bytes):



        ^(?!(.*)(.+)(.*$)(?<!^2|^1(?=((((?!8).)*(8|3$))2)*$).*(.)+3))



        It's slow, but this simple edit (for just 2 extra bytes) regains all the lost speed and more:



        ^(?!(.*)(.+)(.*$)(?<!^2|(?=1((((?!8).)*(8|3$))2)*$)^1.*(.)+3))



        ^
        (?!
        (.*) # cycle through all starting points of substrings;
        # 1 = part to exclude from the start
        (.+) # cycle through all ending points of non-empty substrings;
        # 2 = the substring
        (.*$) # 3 = part to exclude from the end
        (?<! # Assert that every character in the substring appears a total
        # even number of times.
        ^2 # Assert that our substring is not the whole string. We don't
        # need a $ anchor because we were already at the end before
        # entering this lookbehind.
        | # Note that the following steps are evaluated right to left,
        # so please read them from bottom to top.
        ^1 # Do not look further left than the start of our substring.
        (?=
        # Assert that the number of times the character 8 appears in our
        # substring is odd.
        (
        (
        ((?!8).)*
        (8|3$) # This is the best part. Until the very last iteration
        # of the loop outside the 2 loop, this alternation
        # can only match 8, and once it reaches the end of the
        # substring, it can match 3$ only once. This guarantees
        # that it will match 8 an odd number of times, in matched
        # pairs until finding one more at the end of the substring,
        # which is paired with the 3$ instead of another 8.
        )2
        )*$
        )
        .*(.)+ # 8 = cycle through all characters in this substring
        # Assert (within this context) that at least one character appears an odd
        # number of times within our substring. (Outside this negative lookbehind,
        # that is equivalent to asserting that no character appears an odd number
        # of times in our substring.)
        3 # Skip to our substring (do not look further right than its end)
        )
        )


        I wrote it using molecular lookahead (103 69 bytes) before converting it to variable-length lookbehind:



        ^(?!.*(?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$))



        ^
        (?!
        .*(?*(.+)(.*$)) # cycle through all non-empty substrings;
        # 1 = the current substring;
        # 2 = the part to exclude from the end
        (?! # Assert that no character in the substring appears a
        # total even number of times.
        ^1$ # Assert that our substring is not the whole string
        # (i.e. it's a strict substring)
        |
        (?*(.)+.*2$) # 3 = Cycle through all characters that appear in this
        # substring.
        # Assert (within this context) that this character appears an odd number
        # of times within our substring.
        (
        (
        ((?!3).)*
        (3|2$)
        )2
        )*$
        )
        )


        And to aid in making my regex itself well-linked, I've been using a variation of the above regex:



        (?*(.+)(.*$))(?!^1$|(?*(.)+.*2$)((((?!3).)*(3|2$))2)*$)1



        When used with regex -xml,rs -o, this identifies a strict substring of the input that contains an even number of every character (if one exists). Sure, I could have written a non-regex program to do this for me, but where would be the fun in that?







        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited Feb 16 at 6:10

























        answered Feb 4 at 4:36









        DeadcodeDeadcode

        1,7141419




        1,7141419







        • 8




          $begingroup$
          wtf it's still being golfed
          $endgroup$
          – ASCII-only
          Feb 4 at 8:51










        • $begingroup$
          @ASCII-only and still being golfed...
          $endgroup$
          – Quintec
          Feb 5 at 14:27












        • 8




          $begingroup$
          wtf it's still being golfed
          $endgroup$
          – ASCII-only
          Feb 4 at 8:51










        • $begingroup$
          @ASCII-only and still being golfed...
          $endgroup$
          – Quintec
          Feb 5 at 14:27







        8




        8




        $begingroup$
        wtf it's still being golfed
        $endgroup$
        – ASCII-only
        Feb 4 at 8:51




        $begingroup$
        wtf it's still being golfed
        $endgroup$
        – ASCII-only
        Feb 4 at 8:51












        $begingroup$
        @ASCII-only and still being golfed...
        $endgroup$
        – Quintec
        Feb 5 at 14:27




        $begingroup$
        @ASCII-only and still being golfed...
        $endgroup$
        – Quintec
        Feb 5 at 14:27











        11












        $begingroup$

        Jelly, 20 bytes



        ĠẈḂẸẆṖÇ€Ạ
        ĠẈḂẸ
        ẆṖÇ€Ạ


        Try it online!



        The first line is ignored. It's only there to satisfy the condition that every character appear an even number of times.



        The next line first Ġroups indices by their value. If we then take the length of each sublist in the resulting list (), we get the number of times each character appears. To check whether any of these are non-even, we get the last it of each count and ask whether there xists a truthy (nonzero) value.



        Therefore, this helper link returns whether a substring cannot be circled.



        In the main link, we take all substrings of the input (), op off the last one (so that we don't check whether the entire string can be circled), and run the helper link (Ç) on ach substring. The result is then whether ll substrings cannot be circled.






        share|improve this answer











        $endgroup$












        • $begingroup$
          So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
          $endgroup$
          – Erik the Outgolfer
          Feb 3 at 9:58















        11












        $begingroup$

        Jelly, 20 bytes



        ĠẈḂẸẆṖÇ€Ạ
        ĠẈḂẸ
        ẆṖÇ€Ạ


        Try it online!



        The first line is ignored. It's only there to satisfy the condition that every character appear an even number of times.



        The next line first Ġroups indices by their value. If we then take the length of each sublist in the resulting list (), we get the number of times each character appears. To check whether any of these are non-even, we get the last it of each count and ask whether there xists a truthy (nonzero) value.



        Therefore, this helper link returns whether a substring cannot be circled.



        In the main link, we take all substrings of the input (), op off the last one (so that we don't check whether the entire string can be circled), and run the helper link (Ç) on ach substring. The result is then whether ll substrings cannot be circled.






        share|improve this answer











        $endgroup$












        • $begingroup$
          So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
          $endgroup$
          – Erik the Outgolfer
          Feb 3 at 9:58













        11












        11








        11





        $begingroup$

        Jelly, 20 bytes



        ĠẈḂẸẆṖÇ€Ạ
        ĠẈḂẸ
        ẆṖÇ€Ạ


        Try it online!



        The first line is ignored. It's only there to satisfy the condition that every character appear an even number of times.



        The next line first Ġroups indices by their value. If we then take the length of each sublist in the resulting list (), we get the number of times each character appears. To check whether any of these are non-even, we get the last it of each count and ask whether there xists a truthy (nonzero) value.



        Therefore, this helper link returns whether a substring cannot be circled.



        In the main link, we take all substrings of the input (), op off the last one (so that we don't check whether the entire string can be circled), and run the helper link (Ç) on ach substring. The result is then whether ll substrings cannot be circled.






        share|improve this answer











        $endgroup$



        Jelly, 20 bytes



        ĠẈḂẸẆṖÇ€Ạ
        ĠẈḂẸ
        ẆṖÇ€Ạ


        Try it online!



        The first line is ignored. It's only there to satisfy the condition that every character appear an even number of times.



        The next line first Ġroups indices by their value. If we then take the length of each sublist in the resulting list (), we get the number of times each character appears. To check whether any of these are non-even, we get the last it of each count and ask whether there xists a truthy (nonzero) value.



        Therefore, this helper link returns whether a substring cannot be circled.



        In the main link, we take all substrings of the input (), op off the last one (so that we don't check whether the entire string can be circled), and run the helper link (Ç) on ach substring. The result is then whether ll substrings cannot be circled.







        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited Feb 3 at 1:24

























        answered Feb 3 at 1:10









        DoorknobDoorknob

        54.8k17115350




        54.8k17115350











        • $begingroup$
          So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
          $endgroup$
          – Erik the Outgolfer
          Feb 3 at 9:58
















        • $begingroup$
          So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
          $endgroup$
          – Erik the Outgolfer
          Feb 3 at 9:58















        $begingroup$
        So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
        $endgroup$
        – Erik the Outgolfer
        Feb 3 at 9:58




        $begingroup$
        So, yeah, this would be my solution too, but, unfortunately, it's boring... :(
        $endgroup$
        – Erik the Outgolfer
        Feb 3 at 9:58











        7












        $begingroup$


        J, 42 bytes



        (*#'.,012&|@~#')=1#.[:,([:*/0=2&|@#/.~).


        Try it online!



        explanation



        (*#'.,012&|@~#') = 1 #. [: , ([: */ 0 = 2&|@#/.~).

        (*#'.,012&|@~#') NB. this evaluates to 1
        NB. while supplying extra
        NB. chars we need. hence...
        = NB. does 1 equal...
        1 #. NB. the sum of...
        [: , NB. the flatten of...
        ( ). NB. the verb in parens applied
        NB. to every suffix of every
        NB. prefix, ie, all contiguous
        NB. substrings
        ([: */ 0 = 2&|@#/.~) NB. def of verb in paren:
        /.~ NB. when we group by each
        NB. distinct char...
        [: */ NB. is it the case that
        NB. every group...
        @# NB. has a length...
        0 = 2&| NB. divisible by 2...





        share|improve this answer











        $endgroup$








        • 1




          $begingroup$
          @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
          $endgroup$
          – Ørjan Johansen
          Feb 4 at 3:12







        • 1




          $begingroup$
          @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
          $endgroup$
          – Deadcode
          Feb 4 at 9:12















        7












        $begingroup$


        J, 42 bytes



        (*#'.,012&|@~#')=1#.[:,([:*/0=2&|@#/.~).


        Try it online!



        explanation



        (*#'.,012&|@~#') = 1 #. [: , ([: */ 0 = 2&|@#/.~).

        (*#'.,012&|@~#') NB. this evaluates to 1
        NB. while supplying extra
        NB. chars we need. hence...
        = NB. does 1 equal...
        1 #. NB. the sum of...
        [: , NB. the flatten of...
        ( ). NB. the verb in parens applied
        NB. to every suffix of every
        NB. prefix, ie, all contiguous
        NB. substrings
        ([: */ 0 = 2&|@#/.~) NB. def of verb in paren:
        /.~ NB. when we group by each
        NB. distinct char...
        [: */ NB. is it the case that
        NB. every group...
        @# NB. has a length...
        0 = 2&| NB. divisible by 2...





        share|improve this answer











        $endgroup$








        • 1




          $begingroup$
          @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
          $endgroup$
          – Ørjan Johansen
          Feb 4 at 3:12







        • 1




          $begingroup$
          @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
          $endgroup$
          – Deadcode
          Feb 4 at 9:12













        7












        7








        7





        $begingroup$


        J, 42 bytes



        (*#'.,012&|@~#')=1#.[:,([:*/0=2&|@#/.~).


        Try it online!



        explanation



        (*#'.,012&|@~#') = 1 #. [: , ([: */ 0 = 2&|@#/.~).

        (*#'.,012&|@~#') NB. this evaluates to 1
        NB. while supplying extra
        NB. chars we need. hence...
        = NB. does 1 equal...
        1 #. NB. the sum of...
        [: , NB. the flatten of...
        ( ). NB. the verb in parens applied
        NB. to every suffix of every
        NB. prefix, ie, all contiguous
        NB. substrings
        ([: */ 0 = 2&|@#/.~) NB. def of verb in paren:
        /.~ NB. when we group by each
        NB. distinct char...
        [: */ NB. is it the case that
        NB. every group...
        @# NB. has a length...
        0 = 2&| NB. divisible by 2...





        share|improve this answer











        $endgroup$




        J, 42 bytes



        (*#'.,012&|@~#')=1#.[:,([:*/0=2&|@#/.~).


        Try it online!



        explanation



        (*#'.,012&|@~#') = 1 #. [: , ([: */ 0 = 2&|@#/.~).

        (*#'.,012&|@~#') NB. this evaluates to 1
        NB. while supplying extra
        NB. chars we need. hence...
        = NB. does 1 equal...
        1 #. NB. the sum of...
        [: , NB. the flatten of...
        ( ). NB. the verb in parens applied
        NB. to every suffix of every
        NB. prefix, ie, all contiguous
        NB. substrings
        ([: */ 0 = 2&|@#/.~) NB. def of verb in paren:
        /.~ NB. when we group by each
        NB. distinct char...
        [: */ NB. is it the case that
        NB. every group...
        @# NB. has a length...
        0 = 2&| NB. divisible by 2...






        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited Feb 4 at 1:52

























        answered Feb 4 at 0:57









        JonahJonah

        2,331916




        2,331916







        • 1




          $begingroup$
          @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
          $endgroup$
          – Ørjan Johansen
          Feb 4 at 3:12







        • 1




          $begingroup$
          @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
          $endgroup$
          – Deadcode
          Feb 4 at 9:12












        • 1




          $begingroup$
          @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
          $endgroup$
          – Ørjan Johansen
          Feb 4 at 3:12







        • 1




          $begingroup$
          @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
          $endgroup$
          – Deadcode
          Feb 4 at 9:12







        1




        1




        $begingroup$
        @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
        $endgroup$
        – Ørjan Johansen
        Feb 4 at 3:12





        $begingroup$
        @Deadcode Since handling that amounts to doing the opposite test for the whole string as for every other substring, it seems a safe bet that most solutions would leave that out. Testing with abc, only the Perl entry doesn't "fail" on it. (It has other problems though.)
        $endgroup$
        – Ørjan Johansen
        Feb 4 at 3:12





        1




        1




        $begingroup$
        @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
        $endgroup$
        – Deadcode
        Feb 4 at 9:12




        $begingroup$
        @ØrjanJohansen You misunderstood. I said strings with an odd total number of any character (which only disqualifies programs' source code, not well-linked strings) can be well-linked, and this program returns falsey for some of those well-linked strings. The question explicitly allows this undefined behavior, so the program is valid. Jonah, I think it's really interesting that your program does this and I admire that you figured out a method that works this way. I would love an explanation. This kind of programming is completely alien to me so I don't understand the comments and code.
        $endgroup$
        – Deadcode
        Feb 4 at 9:12











        5












        $begingroup$


        Python 2, 74 bytes





        bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)


        Try it online!



        Iterates through the string, keeping track in P of the set of characters seen an odd number of times so far. The list d stores all past values of P, and if see the current P already in d, this means that in the characters seen since that time, each character has appeared an even number of times. If so, check if we've gone through the entire input: if we have, accept because the whole string is paired as expected, and otherwise reject.



        Now about the source restriction. Characters needing pairing are stuffed into various harmless places, underlined below:



        bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)
        _____ _ _ _ _ ___ ___


        The f<s evaluates to 0 while pairing off an f, taking advantage of the function name also being f so that it's defined (by the time the function is called.) The 0^0 absorbs an ^ symbol.



        The 0 in P=0 is unfortunate: in Python evaluates to an empty dict rather than an empty set as we want, and here we can put in any non-character element and it will be harmless. I don't see anything spare to put in though, and have put in a 0 and duplicated it in bmn0, costing 2 bytes. Note that initial arguments are evaluated when the function is defined, so variables we define ourselves can't be put in here.






        share|improve this answer











        $endgroup$

















          5












          $begingroup$


          Python 2, 74 bytes





          bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)


          Try it online!



          Iterates through the string, keeping track in P of the set of characters seen an odd number of times so far. The list d stores all past values of P, and if see the current P already in d, this means that in the characters seen since that time, each character has appeared an even number of times. If so, check if we've gone through the entire input: if we have, accept because the whole string is paired as expected, and otherwise reject.



          Now about the source restriction. Characters needing pairing are stuffed into various harmless places, underlined below:



          bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)
          _____ _ _ _ _ ___ ___


          The f<s evaluates to 0 while pairing off an f, taking advantage of the function name also being f so that it's defined (by the time the function is called.) The 0^0 absorbs an ^ symbol.



          The 0 in P=0 is unfortunate: in Python evaluates to an empty dict rather than an empty set as we want, and here we can put in any non-character element and it will be harmless. I don't see anything spare to put in though, and have put in a 0 and duplicated it in bmn0, costing 2 bytes. Note that initial arguments are evaluated when the function is defined, so variables we define ourselves can't be put in here.






          share|improve this answer











          $endgroup$















            5












            5








            5





            $begingroup$


            Python 2, 74 bytes





            bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)


            Try it online!



            Iterates through the string, keeping track in P of the set of characters seen an odd number of times so far. The list d stores all past values of P, and if see the current P already in d, this means that in the characters seen since that time, each character has appeared an even number of times. If so, check if we've gone through the entire input: if we have, accept because the whole string is paired as expected, and otherwise reject.



            Now about the source restriction. Characters needing pairing are stuffed into various harmless places, underlined below:



            bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)
            _____ _ _ _ _ ___ ___


            The f<s evaluates to 0 while pairing off an f, taking advantage of the function name also being f so that it's defined (by the time the function is called.) The 0^0 absorbs an ^ symbol.



            The 0 in P=0 is unfortunate: in Python evaluates to an empty dict rather than an empty set as we want, and here we can put in any non-character element and it will be harmless. I don't see anything spare to put in though, and have put in a 0 and duplicated it in bmn0, costing 2 bytes. Note that initial arguments are evaluated when the function is defined, so variables we define ourselves can't be put in here.






            share|improve this answer











            $endgroup$




            Python 2, 74 bytes





            bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)


            Try it online!



            Iterates through the string, keeping track in P of the set of characters seen an odd number of times so far. The list d stores all past values of P, and if see the current P already in d, this means that in the characters seen since that time, each character has appeared an even number of times. If so, check if we've gone through the entire input: if we have, accept because the whole string is paired as expected, and otherwise reject.



            Now about the source restriction. Characters needing pairing are stuffed into various harmless places, underlined below:



            bmn0=f=lambda s,P=0,d=:s<" "if(P in d)else+f(s[f<s:],P^s[0^0],[P]+d)
            _____ _ _ _ _ ___ ___


            The f<s evaluates to 0 while pairing off an f, taking advantage of the function name also being f so that it's defined (by the time the function is called.) The 0^0 absorbs an ^ symbol.



            The 0 in P=0 is unfortunate: in Python evaluates to an empty dict rather than an empty set as we want, and here we can put in any non-character element and it will be harmless. I don't see anything spare to put in though, and have put in a 0 and duplicated it in bmn0, costing 2 bytes. Note that initial arguments are evaluated when the function is defined, so variables we define ourselves can't be put in here.







            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited Feb 4 at 8:21

























            answered Feb 4 at 7:04









            xnorxnor

            91.1k18186442




            91.1k18186442





















                5












                $begingroup$


                Python 3.8 (pre-release), 66 bytes





                lambda l,b=id:len(str(b:=b^c)for(c)in l)<len(l)#,<^fmnost#


                Try it online!



                The Era of Assignment Expressions is upon us. With PEP 572 included in Python 3.8, golfing will never be the same. You can install the early developer preview 3.8.0a1 here.



                Assignment expressions let you use := to assign to a variable inline while evaluating to that value. For example, (a:=2, a+1) gives (2, 3). This can of course be used to store variables for reuse, but here we go a step further and use it as an accumulator in a comprehension.



                For example, this code computes the cumulative sums [1, 3, 6]



                t=0
                l=[1,2,3]
                print([t:=t+x for x in l])


                Note how with each pass through the list comprehension, the cumulative sum t is increased by x and the new value is stored in the list produced by the comprehension.



                Similarly, b:=b^c updates the set of characters b to toggle whether it includes character c, and evaluates to the new value of b. So, the code [b:=b^cfor c in l] iterates over characters c in l and accumulates the set of characters seen an odd number of times in each non-empty prefix.



                This list is checked for duplicates by making it a set comprehension instead and seeing if its length is smaller than that of s, which means that some repeats were collapsed. If so, the repeat means that in the portion of s seen in between those times every character encountered an even number of numbers, making the string non-well-linked. Python doesn't allow sets of sets for being unhashable, so the inner sets are converted to strings instead.



                The set b is initialized as an optional arguments, and successfully gets modified in the function scope. I was worried this would make the function non-reusable, but it seems to reset between runs.



                For the source restriction, unpaired characters are stuffed in a comment at the end. Writing for(c)in l rather than for c in l cancels the extra parens for free. We put id into the initial set b, which is harmless since it can start as any set, but the empty set can't be written as because Python will make an empty dictionary. Since the letters i and d are among those needing pairing, we can put the function id there.



                Note that the code outputs negated booleans, so it will correctly give False on itself.






                share|improve this answer











                $endgroup$












                • $begingroup$
                  Try it online!
                  $endgroup$
                  – Dennis
                  yesterday















                5












                $begingroup$


                Python 3.8 (pre-release), 66 bytes





                lambda l,b=id:len(str(b:=b^c)for(c)in l)<len(l)#,<^fmnost#


                Try it online!



                The Era of Assignment Expressions is upon us. With PEP 572 included in Python 3.8, golfing will never be the same. You can install the early developer preview 3.8.0a1 here.



                Assignment expressions let you use := to assign to a variable inline while evaluating to that value. For example, (a:=2, a+1) gives (2, 3). This can of course be used to store variables for reuse, but here we go a step further and use it as an accumulator in a comprehension.



                For example, this code computes the cumulative sums [1, 3, 6]



                t=0
                l=[1,2,3]
                print([t:=t+x for x in l])


                Note how with each pass through the list comprehension, the cumulative sum t is increased by x and the new value is stored in the list produced by the comprehension.



                Similarly, b:=b^c updates the set of characters b to toggle whether it includes character c, and evaluates to the new value of b. So, the code [b:=b^cfor c in l] iterates over characters c in l and accumulates the set of characters seen an odd number of times in each non-empty prefix.



                This list is checked for duplicates by making it a set comprehension instead and seeing if its length is smaller than that of s, which means that some repeats were collapsed. If so, the repeat means that in the portion of s seen in between those times every character encountered an even number of numbers, making the string non-well-linked. Python doesn't allow sets of sets for being unhashable, so the inner sets are converted to strings instead.



                The set b is initialized as an optional arguments, and successfully gets modified in the function scope. I was worried this would make the function non-reusable, but it seems to reset between runs.



                For the source restriction, unpaired characters are stuffed in a comment at the end. Writing for(c)in l rather than for c in l cancels the extra parens for free. We put id into the initial set b, which is harmless since it can start as any set, but the empty set can't be written as because Python will make an empty dictionary. Since the letters i and d are among those needing pairing, we can put the function id there.



                Note that the code outputs negated booleans, so it will correctly give False on itself.






                share|improve this answer











                $endgroup$












                • $begingroup$
                  Try it online!
                  $endgroup$
                  – Dennis
                  yesterday













                5












                5








                5





                $begingroup$


                Python 3.8 (pre-release), 66 bytes





                lambda l,b=id:len(str(b:=b^c)for(c)in l)<len(l)#,<^fmnost#


                Try it online!



                The Era of Assignment Expressions is upon us. With PEP 572 included in Python 3.8, golfing will never be the same. You can install the early developer preview 3.8.0a1 here.



                Assignment expressions let you use := to assign to a variable inline while evaluating to that value. For example, (a:=2, a+1) gives (2, 3). This can of course be used to store variables for reuse, but here we go a step further and use it as an accumulator in a comprehension.



                For example, this code computes the cumulative sums [1, 3, 6]



                t=0
                l=[1,2,3]
                print([t:=t+x for x in l])


                Note how with each pass through the list comprehension, the cumulative sum t is increased by x and the new value is stored in the list produced by the comprehension.



                Similarly, b:=b^c updates the set of characters b to toggle whether it includes character c, and evaluates to the new value of b. So, the code [b:=b^cfor c in l] iterates over characters c in l and accumulates the set of characters seen an odd number of times in each non-empty prefix.



                This list is checked for duplicates by making it a set comprehension instead and seeing if its length is smaller than that of s, which means that some repeats were collapsed. If so, the repeat means that in the portion of s seen in between those times every character encountered an even number of numbers, making the string non-well-linked. Python doesn't allow sets of sets for being unhashable, so the inner sets are converted to strings instead.



                The set b is initialized as an optional arguments, and successfully gets modified in the function scope. I was worried this would make the function non-reusable, but it seems to reset between runs.



                For the source restriction, unpaired characters are stuffed in a comment at the end. Writing for(c)in l rather than for c in l cancels the extra parens for free. We put id into the initial set b, which is harmless since it can start as any set, but the empty set can't be written as because Python will make an empty dictionary. Since the letters i and d are among those needing pairing, we can put the function id there.



                Note that the code outputs negated booleans, so it will correctly give False on itself.






                share|improve this answer











                $endgroup$




                Python 3.8 (pre-release), 66 bytes





                lambda l,b=id:len(str(b:=b^c)for(c)in l)<len(l)#,<^fmnost#


                Try it online!



                The Era of Assignment Expressions is upon us. With PEP 572 included in Python 3.8, golfing will never be the same. You can install the early developer preview 3.8.0a1 here.



                Assignment expressions let you use := to assign to a variable inline while evaluating to that value. For example, (a:=2, a+1) gives (2, 3). This can of course be used to store variables for reuse, but here we go a step further and use it as an accumulator in a comprehension.



                For example, this code computes the cumulative sums [1, 3, 6]



                t=0
                l=[1,2,3]
                print([t:=t+x for x in l])


                Note how with each pass through the list comprehension, the cumulative sum t is increased by x and the new value is stored in the list produced by the comprehension.



                Similarly, b:=b^c updates the set of characters b to toggle whether it includes character c, and evaluates to the new value of b. So, the code [b:=b^cfor c in l] iterates over characters c in l and accumulates the set of characters seen an odd number of times in each non-empty prefix.



                This list is checked for duplicates by making it a set comprehension instead and seeing if its length is smaller than that of s, which means that some repeats were collapsed. If so, the repeat means that in the portion of s seen in between those times every character encountered an even number of numbers, making the string non-well-linked. Python doesn't allow sets of sets for being unhashable, so the inner sets are converted to strings instead.



                The set b is initialized as an optional arguments, and successfully gets modified in the function scope. I was worried this would make the function non-reusable, but it seems to reset between runs.



                For the source restriction, unpaired characters are stuffed in a comment at the end. Writing for(c)in l rather than for c in l cancels the extra parens for free. We put id into the initial set b, which is harmless since it can start as any set, but the empty set can't be written as because Python will make an empty dictionary. Since the letters i and d are among those needing pairing, we can put the function id there.



                Note that the code outputs negated booleans, so it will correctly give False on itself.







                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited yesterday

























                answered Feb 5 at 5:58









                xnorxnor

                91.1k18186442




                91.1k18186442











                • $begingroup$
                  Try it online!
                  $endgroup$
                  – Dennis
                  yesterday
















                • $begingroup$
                  Try it online!
                  $endgroup$
                  – Dennis
                  yesterday















                $begingroup$
                Try it online!
                $endgroup$
                – Dennis
                yesterday




                $begingroup$
                Try it online!
                $endgroup$
                – Dennis
                yesterday











                3












                $begingroup$


                Perl 6, 76 bytes





                *.comb[^*X+(^*).map(^*)].grep($_&[&]($_)).none.Bag*.none%2#*^+XBob2rec%#


                Try it online!



                A Whatever lambda that returns a None Junction of None Junctions that can be boolified to a truthy/falsey value. I would recommend not removing the ? that boolifies the return result though, otherwise the output gets rather large.



                This solution is a little more complex than needed, due to several involved functions being unlinked, e.g. .., all, >>, %% etc. Without the source restriction, this could be 43 bytes:





                *.comb[^*X.. ^*].grep(?*).one.Bag*.all%%2


                Try it online!



                Explanation:



                *.comb # Split the string to a list of characters
                [^*X+(^*).map(^*)] # Get all substrings, alongside some garbage
                .grep($_&[&]($_)) # Filter out the garbage (empty lists, lists with Nil values)
                .none # Are none of
                .Bag* # The count of characters in each substring
                .none%2 # All not divisible by 2

                #*^+XBob2rec%# And garbage to even out character counts





                share|improve this answer











                $endgroup$

















                  3












                  $begingroup$


                  Perl 6, 76 bytes





                  *.comb[^*X+(^*).map(^*)].grep($_&[&]($_)).none.Bag*.none%2#*^+XBob2rec%#


                  Try it online!



                  A Whatever lambda that returns a None Junction of None Junctions that can be boolified to a truthy/falsey value. I would recommend not removing the ? that boolifies the return result though, otherwise the output gets rather large.



                  This solution is a little more complex than needed, due to several involved functions being unlinked, e.g. .., all, >>, %% etc. Without the source restriction, this could be 43 bytes:





                  *.comb[^*X.. ^*].grep(?*).one.Bag*.all%%2


                  Try it online!



                  Explanation:



                  *.comb # Split the string to a list of characters
                  [^*X+(^*).map(^*)] # Get all substrings, alongside some garbage
                  .grep($_&[&]($_)) # Filter out the garbage (empty lists, lists with Nil values)
                  .none # Are none of
                  .Bag* # The count of characters in each substring
                  .none%2 # All not divisible by 2

                  #*^+XBob2rec%# And garbage to even out character counts





                  share|improve this answer











                  $endgroup$















                    3












                    3








                    3





                    $begingroup$


                    Perl 6, 76 bytes





                    *.comb[^*X+(^*).map(^*)].grep($_&[&]($_)).none.Bag*.none%2#*^+XBob2rec%#


                    Try it online!



                    A Whatever lambda that returns a None Junction of None Junctions that can be boolified to a truthy/falsey value. I would recommend not removing the ? that boolifies the return result though, otherwise the output gets rather large.



                    This solution is a little more complex than needed, due to several involved functions being unlinked, e.g. .., all, >>, %% etc. Without the source restriction, this could be 43 bytes:





                    *.comb[^*X.. ^*].grep(?*).one.Bag*.all%%2


                    Try it online!



                    Explanation:



                    *.comb # Split the string to a list of characters
                    [^*X+(^*).map(^*)] # Get all substrings, alongside some garbage
                    .grep($_&[&]($_)) # Filter out the garbage (empty lists, lists with Nil values)
                    .none # Are none of
                    .Bag* # The count of characters in each substring
                    .none%2 # All not divisible by 2

                    #*^+XBob2rec%# And garbage to even out character counts





                    share|improve this answer











                    $endgroup$




                    Perl 6, 76 bytes





                    *.comb[^*X+(^*).map(^*)].grep($_&[&]($_)).none.Bag*.none%2#*^+XBob2rec%#


                    Try it online!



                    A Whatever lambda that returns a None Junction of None Junctions that can be boolified to a truthy/falsey value. I would recommend not removing the ? that boolifies the return result though, otherwise the output gets rather large.



                    This solution is a little more complex than needed, due to several involved functions being unlinked, e.g. .., all, >>, %% etc. Without the source restriction, this could be 43 bytes:





                    *.comb[^*X.. ^*].grep(?*).one.Bag*.all%%2


                    Try it online!



                    Explanation:



                    *.comb # Split the string to a list of characters
                    [^*X+(^*).map(^*)] # Get all substrings, alongside some garbage
                    .grep($_&[&]($_)) # Filter out the garbage (empty lists, lists with Nil values)
                    .none # Are none of
                    .Bag* # The count of characters in each substring
                    .none%2 # All not divisible by 2

                    #*^+XBob2rec%# And garbage to even out character counts






                    share|improve this answer














                    share|improve this answer



                    share|improve this answer








                    edited Feb 4 at 10:24

























                    answered Feb 4 at 10:14









                    Jo KingJo King

                    23.3k255121




                    23.3k255121





















                        3












                        $begingroup$

                        Perl 5 -p, 94, 86, 78 bytes



                        m-.+(?$Q)(?!)-}


                        ouput 0 if well-linked 1 otherwise.



                        78 bytes



                        86 bytes



                        94 bytes



                        How it works




                        • -p with = integer bitwise or assignment, if there's almost one 1, $ will be 1 (true), by default it is empty (false)


                        • $&eq$_ the case where the sbustring is the whole string is bitwise xored ^ with "no odd character occurence"


                        • ($g=$&)=~/./g to copy the matched substring into $g (because will be overwirtten after next regex match) and return the array of character of substring.


                        • /^/ garbage which evaluates to 1


                        • grep 1 &(@m=$g=~/Q$_/g), for each character in substring get the array of character in $g matching itself, array in scalar evaluates to its size and grep to filter the chracters with odd occurence 1&x is equivalent to x%2==1





                        share


                        ouput 0 if well-linked 1 otherwise.



                        78 bytes



                        86 bytes



                        94 bytes



                        How it works




                        • -p with ending trick to output $ at the end


                        • m-.+(? .. )(?!)-, to execute code over all non-empty substring (.+ matches the whole string first, and after executing code between (? ..) backtracks because of failed forced (?!)


                        • $Q


                          ouput 0 if well-linked 1 otherwise.



                          78 bytes



                          86 bytes



                          94 bytes



                          How it works




                          • -p with = integer bitwise or assignment, if there's almost one 1, $ will be 1 (true), by default it is empty (false)


                          • $&eq$_ the case where the sbustring is the whole string is bitwise xored ^ with "no odd character occurence"


                          • ($g=$&)=~/./g to copy the matched substring into $g (because will be overwirtten after next regex match) and return the array of character of substring.


                          • /^/ garbage which evaluates to 1


                          • grep 1 &(@m=$g=~/Q$_/g), for each character in substring get the array of character in $g matching itself, array in scalar evaluates to its size and grep to filter the chracters with odd occurence 1&x is equivalent to x%2==1





                        share


                        ouput 0 if well-linked 1 otherwise.



                        78 bytes



                        86 bytes



                        94 bytes



                        How it works




                        • -p with (?!6).)*(?!.+6.*3$)(.)1,3)(?!,<)?)


                          Assert that there is no character 6 such that:



                          • it does not appear between the character itself (exclusive) and the end of the substring

                          • it appears an even number of times between the start of the substring and itself (exclusive)

                          In order to pass the source layout constraint, I replaced (((( with (?:(^?(?:( and (( with (KŒIKεSIS¢ÈP}àÈ


                          Outputs 1 if the string is well-linked, and 0 if the string is not well-linked.



                          Try it online or verify all test cases.



                          Explanation:





                          The base program is ŒsKεsS¢ÈP}à (11 bytes), which outputs 0 if well-linked and 1 if not well-linked. The trailing È (is_even) is a semi no-op that inverts the output, so 1 for well-linked strings and 0 for not well-linked strings. The other parts are no-ops to comply to the challenge rules.



                          Œε¢Pà}K # No-ops: substrings, map, count, product, maximum, close map, remove
                          # Due to the last remove, we're back at the (implicit) input again
                          Œ # Take the substrings of the input
                          IK # Remove the input itself from that list of substrings
                          ε # Map each substring to:
                          S # No-op: transform the substring into a list of characters
                          IS # Get the input-string as a list of characters
                          ¢ # Count the occurrence of each character in the current substring
                          È # Check which counts are even (1 if truthy; 0 if falsey)
                          P # Take the product of that
                          }à # After the map: check if any are truthy by taking the maximum
                          È # Semi no-op: check if this maximum is even (0 becomes 1; 1 becomes 0)
                          # (and output the result implicitly)





                        share|improve this answer











                        $endgroup$

















                          1












                          $begingroup$


                          05AB1E, 22 20 bytes



                          Œε¢Pà}KŒIKεSIS¢ÈP}àÈ


                          Outputs 1 if the string is well-linked, and 0 if the string is not well-linked.



                          Try it online or verify all test cases.



                          Explanation:





                          The base program is ŒsKεsS¢ÈP}à (11 bytes), which outputs 0 if well-linked and 1 if not well-linked. The trailing È (is_even) is a semi no-op that inverts the output, so 1 for well-linked strings and 0 for not well-linked strings. The other parts are no-ops to comply to the challenge rules.



                          Œε¢Pà}K # No-ops: substrings, map, count, product, maximum, close map, remove
                          # Due to the last remove, we're back at the (implicit) input again
                          Œ # Take the substrings of the input
                          IK # Remove the input itself from that list of substrings
                          ε # Map each substring to:
                          S # No-op: transform the substring into a list of characters
                          IS # Get the input-string as a list of characters
                          ¢ # Count the occurrence of each character in the current substring
                          È # Check which counts are even (1 if truthy; 0 if falsey)
                          P # Take the product of that
                          }à # After the map: check if any are truthy by taking the maximum
                          È # Semi no-op: check if this maximum is even (0 becomes 1; 1 becomes 0)
                          # (and output the result implicitly)





                          share|improve this answer











                          $endgroup$















                            1












                            1








                            1





                            $begingroup$


                            05AB1E, 22 20 bytes



                            Œε¢Pà}KŒIKεSIS¢ÈP}àÈ


                            Outputs 1 if the string is well-linked, and 0 if the string is not well-linked.



                            Try it online or verify all test cases.



                            Explanation:





                            The base program is ŒsKεsS¢ÈP}à (11 bytes), which outputs 0 if well-linked and 1 if not well-linked. The trailing È (is_even) is a semi no-op that inverts the output, so 1 for well-linked strings and 0 for not well-linked strings. The other parts are no-ops to comply to the challenge rules.



                            Œε¢Pà}K # No-ops: substrings, map, count, product, maximum, close map, remove
                            # Due to the last remove, we're back at the (implicit) input again
                            Œ # Take the substrings of the input
                            IK # Remove the input itself from that list of substrings
                            ε # Map each substring to:
                            S # No-op: transform the substring into a list of characters
                            IS # Get the input-string as a list of characters
                            ¢ # Count the occurrence of each character in the current substring
                            È # Check which counts are even (1 if truthy; 0 if falsey)
                            P # Take the product of that
                            }à # After the map: check if any are truthy by taking the maximum
                            È # Semi no-op: check if this maximum is even (0 becomes 1; 1 becomes 0)
                            # (and output the result implicitly)





                            share|improve this answer











                            $endgroup$




                            05AB1E, 22 20 bytes



                            Œε¢Pà}KŒIKεSIS¢ÈP}àÈ


                            Outputs 1 if the string is well-linked, and 0 if the string is not well-linked.



                            Try it online or verify all test cases.



                            Explanation:





                            The base program is ŒsKεsS¢ÈP}à (11 bytes), which outputs 0 if well-linked and 1 if not well-linked. The trailing È (is_even) is a semi no-op that inverts the output, so 1 for well-linked strings and 0 for not well-linked strings. The other parts are no-ops to comply to the challenge rules.



                            Œε¢Pà}K # No-ops: substrings, map, count, product, maximum, close map, remove
                            # Due to the last remove, we're back at the (implicit) input again
                            Œ # Take the substrings of the input
                            IK # Remove the input itself from that list of substrings
                            ε # Map each substring to:
                            S # No-op: transform the substring into a list of characters
                            IS # Get the input-string as a list of characters
                            ¢ # Count the occurrence of each character in the current substring
                            È # Check which counts are even (1 if truthy; 0 if falsey)
                            P # Take the product of that
                            }à # After the map: check if any are truthy by taking the maximum
                            È # Semi no-op: check if this maximum is even (0 becomes 1; 1 becomes 0)
                            # (and output the result implicitly)






                            share|improve this answer














                            share|improve this answer



                            share|improve this answer








                            edited Feb 4 at 8:55

























                            answered Feb 4 at 8:47









                            Kevin CruijssenKevin Cruijssen

                            38.6k557200




                            38.6k557200



























                                draft saved

                                draft discarded
















































                                If this is an answer to a challenge…



                                • …Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.


                                • …Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one.
                                  Explanations of your answer make it more interesting to read and are very much encouraged.


                                • …Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.


                                More generally…



                                • …Please make sure to answer the question and provide sufficient detail.


                                • …Avoid asking for help, clarification or responding to other answers (use comments instead).




                                draft saved


                                draft discarded














                                StackExchange.ready(
                                function ()
                                StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f179422%2fa-well-linked-challenge%23new-answer', 'question_page');

                                );

                                Post as a guest















                                Required, but never shown





















































                                Required, but never shown














                                Required, but never shown












                                Required, but never shown







                                Required, but never shown

































                                Required, but never shown














                                Required, but never shown












                                Required, but never shown







                                Required, but never shown






                                Popular posts from this blog

                                How to check contact read email or not when send email to Individual?

                                Displaying single band from multi-band raster using QGIS

                                How many registers does an x86_64 CPU actually have?