36
\$\begingroup\$

An 'Even string' is any string where the parity of the ASCII values of the characters is always alternating. For example, the string EvenSt-ring$! is an even-string because the ASCII values of the characters are:

69 118 101 110 83 116 45 114 105 110 103 36 33

And the parities of these numbers are:

Odd Even Odd Even Odd Even Odd Even Odd Even Odd Even Odd

Which is alternating the whole way. However, a string like Hello world! is not an even string because the ASCII values are:

72 101 108 108 111 32 87 111 114 108 100 33

And the parities are:

Even Odd Even Even Odd Even Odd Odd Even Even Even Odd

Which is clearly not always alternating.

The challenge

You must write either a full program or a function that accepts a string for input and outputs a truthy value if the string is even, and a falsy value otherwise. You can take your input and output in any reasonable format, and you can assume that the input will only have printable ASCII (the 32-127 range). You do not have to handle empty input.

Examples

Here are some examples of even strings:

#define
EvenSt-ring$!
long
abcdABCD
3.141
~
0123456789
C ode - g ol!f
HatchingLobstersVexinglyPopulateJuvenileFoxglove

And all of these examples are not even strings:

Hello World
PPCG
3.1415
babbage
Code-golf
Standard loopholes apply
Shortest answer in bytes wins
Happy golfing!

You may also use this ungolfed solution to test any strings if you're curious about a certain test-case.

\$\endgroup\$
7
  • \$\begingroup\$ this may be slightly more readable \$\endgroup\$
    – ASCII-only
    Oct 13, 2016 at 8:56
  • 1
    \$\begingroup\$ Can the input be length 1? Empty? \$\endgroup\$
    – xnor
    Oct 13, 2016 at 8:59
  • 2
    \$\begingroup\$ @xnor There's a length-1 example in the test cases, but empty input is a good question. \$\endgroup\$ Oct 13, 2016 at 9:04
  • \$\begingroup\$ Add another uneven string as a test case: lno. \$\endgroup\$
    – adrianmp
    Oct 13, 2016 at 10:23
  • 5
    \$\begingroup\$ Any bonus points for program itself being an even string? \$\endgroup\$ Oct 13, 2016 at 19:14

44 Answers 44

20
\$\begingroup\$

MATL, 4 3 bytes

Thanks to Emigna for saving a byte and thanks to Luis Mendo for fixing some bugs. Code:

doA

Explanation:

d     # Difference between the characters
 o    # Mod 2
  A   # Matlab style all

Try it online!

\$\endgroup\$
9
  • 1
    \$\begingroup\$ I think a list of 1's is true in MATL, so you should be able to remove the A. \$\endgroup\$
    – Emigna
    Oct 13, 2016 at 9:34
  • 1
    \$\begingroup\$ See for example this post, stating so :) \$\endgroup\$
    – Emigna
    Oct 13, 2016 at 9:54
  • 3
    \$\begingroup\$ See this Meta question. The highest voted answer would allow for leaving the A out thanks to the way MATL's if works. \$\endgroup\$
    – Sanchises
    Oct 13, 2016 at 10:13
  • 4
    \$\begingroup\$ You can also replace 2\ by o. And the code will look very... imperative:-) \$\endgroup\$
    – Luis Mendo
    Oct 13, 2016 at 13:10
  • 6
    \$\begingroup\$ Crossed out 4 is still regular 4... \$\endgroup\$ Oct 13, 2016 at 13:15
17
\$\begingroup\$

05AB1E, 5 4 bytes

Saved 1 byte thanks to Adnan.

Ç¥ÉP

Try it online!

Explanation

Ç       # convert to ascii values 
 ¥      # compute delta's
  É     # mod by 2
   P    # product
\$\endgroup\$
2
  • \$\begingroup\$ I believe this also works: Ç¥ÉP :) \$\endgroup\$
    – Adnan
    Oct 13, 2016 at 8:56
  • \$\begingroup\$ @Adnan: Lol, of course! Thanks! :) \$\endgroup\$
    – Emigna
    Oct 13, 2016 at 9:08
13
\$\begingroup\$

Jelly, 7 5 4 bytes

OIḂẠ

Saved 2 bytes using the deltas idea from @Steven H.

Saved 1 byte thanks to @Lynn.

Try it online! or Verify all test cases.

Explanation

OIḂẠ  Input: string S
O     Ordinal
 I    Increments
  Ḃ   Mod 2
   Ạ  All, 0 if it contains a falsey value, else 1
\$\endgroup\$
3
  • \$\begingroup\$ I had come up with the same Jelly answer independently, kudos \$\endgroup\$
    – Steven H.
    Oct 13, 2016 at 6:04
  • 1
    \$\begingroup\$ You can save one byte: %2 \$\endgroup\$
    – Lynn
    Oct 13, 2016 at 11:22
  • \$\begingroup\$ @Lynn Thanks, I felt like there was a builtin for mod 2, but I couldn't find it, was searching using mod. \$\endgroup\$
    – miles
    Oct 13, 2016 at 19:30
8
\$\begingroup\$

Python 2, 54 Bytes

lambda s:all((ord(x)-ord(y))%2for x,y in zip(s,s[1:]))
\$\endgroup\$
7
\$\begingroup\$

Mathematica, 50 44 bytes

The current version is basically all Martin Ender's virtuosity.

Differences@ToCharacterCode@#~Mod~2~FreeQ~0&

Returns True or False. Nothing too clever: takes the mod-2 sum of each pair of consecutive ASCII codes, and checks that 0 is never obtained.

Old version:

Union@Mod[Most[a=ToCharacterCode@#]+Rest@a,2]=={1}&
\$\endgroup\$
0
6
\$\begingroup\$

JavaScript (ES6), 60 50 46 bytes

s=>[...s].every(c=>p-(p=c.charCodeAt()%2),p=2)

I tried recursion, but at 51 bytes, it doesn't seem to be quite worth it:

f=([c,...s],p=2)=>c?p-(p=c.charCodeAt()%2)&f(s,p):1

Test snippet

f=s=>[...s].every(c=>p-(p=c.charCodeAt()%2),p=2)
<input id=I value="Evenst-ring"><button onclick="console.log(f(I.value))">Run</button>

\$\endgroup\$
1
  • \$\begingroup\$ 41 characters in Node.js: s=>[...Buffer(s)].every(c=>p-(p=c&1),p=2) \$\endgroup\$
    – Mwr247
    Oct 13, 2016 at 20:02
6
\$\begingroup\$

Brain-Flak, 138 114 112 84 + 3 = 87 bytes

Thanks to @Riley for help golfing.

This program treats empty input as a noneven string.

{({}(())){({}[()]<(()[{}])>)}{}(({})<>[[]{}]()){{}(<>)}{}({}<>)<>}<>(([])[()]){<>}{}

Try it online!

Explanation (outdated)

Shifts the input from the left stack to the right while modding by 2. Finds the difference between each adjacent character until all have been checked or one of the differences is equal to zero (which would only occur in a noneven string). If the loop terminated due to a noneven string then switch back to the left stack and pop the value remaining on it. Otherwise, stay on the right stack and pop the zero above the 1 remaining on the stack.

\$\endgroup\$
4
  • \$\begingroup\$ Nice! I was going I'd get a bflack answer on this one. Empty input is undefined, so you can go with the shorter one. \$\endgroup\$
    – DJMcMayhem
    Oct 13, 2016 at 14:49
  • \$\begingroup\$ You can save 10 bytes by not using the height of the stack when you compute mod 2. Just change the beginning ([]){{} -> { and remove ([]) from just before the close of the first loop. \$\endgroup\$
    – Riley
    Oct 13, 2016 at 15:37
  • 1
    \$\begingroup\$ Thanks @Riley, I have been looking into reducing the size of the mod 2 and I think that the whole thing can be made into {({}(())){({}[()]<(()[{}])>)}{}({}<>)<>}<> (42 bytes). This was derived from your original modulus. To make it work with your program an additional +1 nilad needs to be added: {({}(())){({}[()]<(()[{}])>)}{}({}()<>)<>}<> \$\endgroup\$
    – 0 '
    Oct 13, 2016 at 17:26
  • \$\begingroup\$ 95% of my original one was from the wiki. You saved me a ton of bytes with the new mod 2. I knew there had to be a better, I just didn't have time to find it. Thanks! \$\endgroup\$
    – Riley
    Oct 13, 2016 at 17:41
6
\$\begingroup\$

R, 41 35 bytes

EDIT: Saved a few bytes thanks to @JDL by using diff instead of rle.

all(diff(utf8ToInt(readline())%%2))

all(rle(utf8ToInt(readline())%%2)[[1]]<2)

Explanation

  1. readline() read input.
  2. utf8ToInt()%%2 convert to ascii values and mod 2 (store as R-vector)
  3. all(rle()==1) run length encoding of to find runs. All runs should be equal to one or smaller than 2 since no runs cant be negative or 0 (saves one byte instead of ==).
\$\endgroup\$
5
  • \$\begingroup\$ I think using prod(...) rather than all(... == 1) saves a few chars. \$\endgroup\$
    – JDL
    Oct 13, 2016 at 10:27
  • 1
    \$\begingroup\$ @JDL Not sure what you mean. Wouldn't this always return something >1? \$\endgroup\$
    – Billywob
    Oct 13, 2016 at 12:28
  • \$\begingroup\$ Sorry, I confused your solution with the method of another one. For some reason I thought the thing inside all was entirely zeroes and ones. \$\endgroup\$
    – JDL
    Oct 13, 2016 at 12:44
  • 1
    \$\begingroup\$ I think we can save more actually by ditching rle and using diff: all(diff(utf8ToInt(readline())%%2)) (we get a warning, but I don't think that's disallowed) \$\endgroup\$
    – JDL
    Oct 13, 2016 at 12:54
  • \$\begingroup\$ I think it does; with a length one string, it boils down to all(numeric(0)) which is TRUE, the desired answer for a length one string. (I tested, if it matters, against R-3.3.1) \$\endgroup\$
    – JDL
    Oct 13, 2016 at 13:05
5
\$\begingroup\$

Pyth (fork), 9 bytes

.A%R2.+CM

No Try It Online link because the fork does not have its own version in the online interpreters.

Explanation:

       CM       Map characters to their ASCII codes.
     .+         Get deltas (differences between consecutive character codes)
  %R2           Take the modulo of each base 2
.A              all are truthy (all deltas are odd)
\$\endgroup\$
5
\$\begingroup\$

Brachylog, 17 bytes

@c:{:2%}a@b:{l1}a

Try it online!

Explanation

@c                   Input to a list of char codes
  :{:2%}a            Apply X mod 2 for each X in the list of char codes
         @b          Split the list into a list of lists where each sublist elements are the
                       same, e.g. turn [1,0,1,1,0,0] into [[1],[0],[1,1],[0,0]]
           :{l1}a    The length of each sublist must be 1
\$\endgroup\$
5
\$\begingroup\$

Java 8, 77 76 72 57 bytes

a->{int i=2,b=1;for(int c:a)b=i==(i=c%2)?0:b;return b>0;}

-4 bytes thanks to @Geobits.

Explanation:

Try it online.

a->{               // Method with character-array parameter and boolean return-type
  int i=2,         //  Integer `i`, starting at any integer not 0 or 1
      b=1;         //  Flag-integer `b`, starting at 1
  for(int c:a)     //  Loop over the input-array
    b=i==(i=c%2)?  //   If two adjacent characters were both odd or even:
       0           //    Set the flag-integer `b` to 0
      :            //   Else:
       b;          //    The flag-integer `b` remains the same
  return b>0;}     //  Return if the flag-integer `b` is still 1
\$\endgroup\$
1
  • 1
    \$\begingroup\$ The meta consensus for truthy values means you should be returning a boolean here (I know, it sucks). The best I could get this that way (72) is by using a flag-int like: boolean c(char[]a){int i=3,b=1;for(int c:a)b=i==(i=c%2)?0:b;return b>0;} \$\endgroup\$
    – Geobits
    Oct 13, 2016 at 14:28
4
\$\begingroup\$

Brain-Flak 155 151 141 121

Includes +3 for -a

Saved 30 bytes thanks to 1000000000

{({}(())){({}[()]<(()[{}])>)}{}({}()<>)<>}<>{({}[({})]<(())>){((<{}{}>))}{}({}[()]<>)<>}<>{{}}([]<(())>){((<{}{}>))}{}

Output:
truthy: 1
falsy: 0 on top of the stack

Try it online! (truthy)
Try it online! (falsy)


Better explanation coming later (if I can remember how it works after a few hours...)

#compute ((mod 2) + 1) and put on other stack
{({}(())){({}[()]<(()[{}])>)}{}({}()<>)<>}<>

#compare top two (remove top 1) push on other stack (-1 for different 0 for same)
{({}[({})]<(())>){((<{}{}>))}{}({}[()]<>)<>}<>

#remove all of the top -1s
{{}}

#take the logical not of the stack height
([]<(())>){((<{}{}>))}{}
\$\endgroup\$
4
\$\begingroup\$

Starry, 85 bytes

 ,       +    *   ` , +               + * ' +  ' `       +    * +   + *   '     +  `.

Try it online!

Note that since a Starry program has no way of telling when an input of arbitrary length ends, this program uses a trailing newline in the input to mark the end of the string. If you get a cryptic error message about and undefined method ord for nil:NilClass then the input is missing a trailing newline.

Explanation

The basic strategy that the program employs is it reads the characters one by one from input and if they are not a newline (character 10) it mods they ASCII value of the character by 2 and finds the difference between it and the previously read character. If the difference is zero the program terminates and prints 0 (falsey). Otherwise the program loops back and does the process over again. If the program reads a newline it terminates and prints 10 (truthy).

Annotated Program

 ,               Push the first character
       +         Push 2
    *            Replace the first character and 2 with the first character mod 2
   `             Label 3 <--------------------------------------------------------\
 ,               Push the next the character                                      |
 +               Push a duplicate of it                                           |
               + Push 10                                                          |
 *               Replace the 10 and the duplicate with their difference           |
 '               Pop and if not zero (the read char is not 10) goto label 1 >-\   |
 +               Push a duplicate of the character which must be newline (10) |   |
  '              Pop and goto label 2 >---------------------------------------+-\ |
 `               Label 1 <----------------------------------------------------/ | |
       +         Push 2                                                         | |
    *            Replace the character and 2 with the character mod 2           | |
 +               Duplicate it ^                                                 | |
   +             Roll the top three items on the stack. The top goes to         | |
                   the bottom. The top three items are now                      | |
                   (from top to bottom) the current character, the previous     | |
                   character, the current character (all modded by 2).          | |
 *               Replace the current character and previous character           | |
                   with their difference                                        | |
   '             Pop if nonzero goto label 3 >----------------------------------+-/
     +           Push zero                                                      |
  `              Label 2 <------------------------------------------------------/
.                Print out the number on top of the stack
                    0 if we came by not following the goto label 3
                   10 if we came by going to label 2
\$\endgroup\$
3
\$\begingroup\$

Perl, 24 + 1 (-p) = 25 bytes

-4 bytes thanks to @Ton Hospel !

s/./$&&v1/eg;$_=!/(.)\1/

Needs -p flag. Outputs 1 is the string is even, nothing otherwise. For instance :

perl -pe 's/./$&&v1/eg;$_=!/(.)\1/' <<< "#define
Hello World"

Explanations : replaces each character by its value mod 2 (so the string contains only 0s and 1s after that). Then search for two following 1 or 0 : if it finds some, then the string isn't even, otherwise it is.

\$\endgroup\$
4
  • 1
    \$\begingroup\$ The right method but not completely golfed out. s/./$&&v1/eg;$_=!/(.)\1/. PS (ord$&)%2 could have been written as 1&ord$& \$\endgroup\$
    – Ton Hospel
    Oct 13, 2016 at 7:48
  • \$\begingroup\$ @TonHospel Damn, I was happy I found that... But I tend to forget about bitwise operations on strings.Thanks a lot ! :) \$\endgroup\$
    – Dada
    Oct 13, 2016 at 7:57
  • \$\begingroup\$ @TonHospel, I haven't tried it, but can't you save a byte by using v1 itself instead of v1? \$\endgroup\$
    – msh210
    Feb 27, 2018 at 21:52
  • 1
    \$\begingroup\$ @msh210 No, you can only use valid identifiers as bare words, and \x01 isn't \$\endgroup\$
    – Ton Hospel
    Feb 27, 2018 at 21:58
2
\$\begingroup\$

J, 15 bytes

0=1#.2=/\2|3&u:

Usage

   f =: 0=1#.2=/\2|3&u:
   f 'C ode - g ol!f'
1
   f 'Code-golf'
0

Explanation

0=1#.2=/\2|3&u:  Input: string S
           3&u:  Get ordinals of each char
         2|      Take each modulo 2
     2  \        For each pair of values
      =/           Test if they are equal, 1 if true else 0
  1#.            Treat the list of integers as base 1 digits and convert to decimal
                 This is equivalent to taking the sum
0=               Is it equal to 0, 1 if true else 0, and return
\$\endgroup\$
2
\$\begingroup\$

Vim, 38 bytes

qqs<C-R>=char2nr(@")%2<CR><Esc>l@qq@q:g/00\|11/d<CR>

Assumes input string in buffer, and empty "q. Outputs binary nonsense if true, nothing if false.

  • s<C-R>=char2nr(@")%2<CR>: Replaces a character with 1 if odd, 0 if even. The macro this is in just does this to every character in the line (no matter how long it is).
  • :g/00\|11/d<CR>: Deletes the line if 2 consecutive "bits" have the same value. Faster than a back-reference.

Normally, in vimgolf, when you use an expression function inside a macro, you're supposed to do the macro itself on the expression register and use some trickery to tab-complete. That's more difficult this time. I may find a way to shorten that later.

\$\endgroup\$
2
\$\begingroup\$

Retina, 39 bytes

Byte count assumes ISO 8859-1 encoding.

S_`
%{2`
$`
}T01`p`_p
..

Mm`.¶.|^¶$
^0

Outputs 1 for truthy and 0 for falsy.

Try it online! (The first line enables a linefeed-separated test suite.)

Explanation

Inspired by a answer of mbomb007's I recently developed a reasonably short ord() implementation in Retina. This is largely based on that, although I was able to make a few simplifications since I don't need a decimal result in since I only need to support printable ASCII (and I only care about the parity of the result, so ending up with an arbitrary offset is fine, too).

Stage 1: Split

S_`

This simply splits the input into its individual characters by splitting it around the empty match and dropping the empty results at the beginning and end with _.

Stage 2: Replace

%{2`
$`

The %{ tells Retina a) that this stage and the next should be run in a loop until the string stops changing through a full iteration, and that these two stages should be applied to each line (i.e each character) of the input separately.

The stage itself is the standard technique for duplicating the first character of the input. We match the empty string (but only look at the first two matches) and insert the prefix of that match. The prefix of the first match (at the beginning of the string) is empty, so this doesn't do anything, and the prefix of the second match is the first character, which is therefore duplicated.

Stage 3: Transliterate

}T01`p`_o

} indicates the end of the loop. The stage itself is a transliteration. 01 indicates that it should only be applied to the first character of the string. p is shorthand for all printable ASCII characters and _ means "delete". So if we expand this, the transliteration does the following transformation:

from:   !"#$%...
to:    _ !"#$...

So spaces are deleted and all other characters are decremented. That means, these two stages together will create a character range from space to the given character (because they'll repeatedly duplicate and decrement the first character until it becomes a space at which point the duplication and deletion cancel).

The length of this range can be used to determine the parity of the character.

Stage 4: Replace

..

We simply drop all pairs of characters. This clears even-length lines and reduces odd-length lines to a single character (the input character, in fact, but that doesn't really matter).

Stage 5: Match

Mm`.¶.|^¶$

It's easier to find inputs which aren't even, so we count the number of matches of either two successive empty lines or two successive non-empty lines. We should get 0 for even inputs and something non-zero otherwise.

Stage 6: Match

^0

All that's left is to invert the result, which we do by counting the number of matches of this regex, which checks that the input starts with a 0. This is only possible if the result of the first stage was 0.

\$\endgroup\$
2
\$\begingroup\$

Clojure, 59 bytes

#(every?(fn[p](odd?(apply + p)))(partition 2 1(map int %)))

Generates all sequential pairs from string n and checks if every pair sum is odd. If a sequence of ints is considered a reasonable format then it's 50 bytes.

#(every?(fn[p](odd?(apply + p)))(partition 2 1 %))

See it online : https://ideone.com/USeSnk

\$\endgroup\$
2
\$\begingroup\$

Julia, 55 53 Bytes

f(s)=!ismatch(r"00|11",join(map(x->Int(x)%2,[s...])))

Explained

Map chars to 0|1 and check if the resulting string contains "00" or "11", which makes the string not alternating.

\$\endgroup\$
0
2
\$\begingroup\$

Python, 52 bytes

f=lambda s:s==s[0]or(ord(s[0])-ord(s[1]))%2*f(s[1:])

A recursive function. Produces 1 (or True) for even strings, 0 for odd ones. Multiplies the parity of the difference of the first two characters by the recursive value on the remainder. A single-character string gives True, as checked by it equaling its first character. This assumes the input is non-empty; else, one more byte is needed for s==s[:1] or len(s)<2.


Python 2, 52 bytes

p=r=2
for c in input():x=ord(c)%2;r*=p-x;p=x
print r

Alternatively, an iterative solution. Iterates over the input characters, storing the current and previous character values mod 2. Multiplies the running product by the difference, which because 0 (Falsey) only when two consecutive parities are equal.

The "previous" value is initialized to 2 (or any value not 0 or 1) so that the first character never matches parity with the fictional previous character.


Python, 42 bytes, outputs via exit code

p=2
for c in input():x=ord(c)%2;p=x/(p!=x)

Outputs via exit code. Terminates with a ZeroDivisionError when two consecutive characters have the same parities, otherwise terminates cleanly.

\$\endgroup\$
2
\$\begingroup\$

Haskell, 42 40 bytes

all odd.(zipWith(-)=<<tail).map fromEnum

Usage example: all odd.(zipWith(-)=<<tail).map fromEnum $ "long" -> True.

How it works:

               map fromEnum         -- turn into a list of ascii values
    (zipWith(/=)=<<tail)            -- build a list of neighbor differences
all odd                             -- check if all differences are odd

Edit: @xnor saved two bytes. Thanks!

\$\endgroup\$
1
  • \$\begingroup\$ It's a bit shorter to take differences and check if those are odd: all odd.(zipWith(-)=<<tail).map fromEnum. \$\endgroup\$
    – xnor
    Oct 13, 2016 at 12:39
2
\$\begingroup\$

Mathematica, 41 40 Bytes

And@@OddQ@Differences@ToCharacterCode@#&

-1 character, thanks to Martin Ender

\$\endgroup\$
0
2
\$\begingroup\$

C, 52 bytes

int f(char*s){return s[1]?(s[0]-s[1])%2?f(s+1):0:1;}

Compares the parity of first 2 characters, recursively moving through the string until it finds 2 characters with the same parity or the string with the length of 1 (s[1] == 0).

Code with some of the test cases

\$\endgroup\$
3
  • \$\begingroup\$ you can shorten this quite a bit by doing f(char*s){s=s[1]?(*s-s[1])%2?f(s+1):0:1;} you don't need the int, return or [0] \$\endgroup\$ Oct 14, 2016 at 2:15
  • \$\begingroup\$ by doing *++s instead of the second s[1] you can change f(s+1) to f(s). that plus my previous comment bring the total down to 39; I should also add that removing return makes it not work on ideone, but it still works with gcc on windows \$\endgroup\$ Oct 14, 2016 at 2:25
  • \$\begingroup\$ with one final tweak I brought it down to 38 by removing the inner ternary. f(char*s){s=s[1]?(*s-*++s)%2&&f(s):1;} I'd go on but it's 5 am and I have wake up in 3 hours lmao \$\endgroup\$ Oct 14, 2016 at 3:06
2
\$\begingroup\$

Ruby, 41 30 (+1) bytes

p gsub(/./){$&.ord%2}!~/(.)\1/

Call this from the command line with the -n flag, like so:

ruby -ne 'p gsub(/./){$&.ord%2}!~/(.)\1/'

Replaces each character with the parity of its ASCII value and then compares to a regex. If even, the =~ comparison will return the index of the first match (i.e. 0), which is a truthy value in Ruby; if not even, the comparison will return nil.

Thanks to Jordan for the improvements!

\$\endgroup\$
2
  • \$\begingroup\$ You can save 6 bytes by replacing =~/^0?(10)*1?$/ with !~/(.)\1/ (or !~/00|11/). \$\endgroup\$
    – Jordan
    Oct 13, 2016 at 19:23
  • \$\begingroup\$ You can get it down to 30 + 1 bytes with the -n flag and input on stdin: ruby -ne 'p gsub(/./){$&.ord%2}!~/(.)\1/'. \$\endgroup\$
    – Jordan
    Oct 13, 2016 at 19:29
1
\$\begingroup\$

Pyke, 8 bytes

m.o$2m%B

Try it here!

m.o      -    map(ord, input)
   $     -   delta(^)
    2m%  -  map(> % 2, ^) 
       B - product(^)
\$\endgroup\$
1
\$\begingroup\$

C#, 69 bytes

s=>{int i=1,e=0;for(;i<s.Length;)e+=(s[i-1]+s[i++]+1)%2;return e<1;};

Full program with test cases:

using System;

namespace EvenStrings
{
    class Program
    {
        static void Main(string[] args)
        {
            Func<string,bool>f= s=>{int i=1,e=0;for(;i<s.Length;)e+=(s[i-1]+s[i++]+1)%2;return e<1;};
            
            Console.WriteLine(f("lno")); //false

            //true:
            Console.WriteLine(f("#define"));
            Console.WriteLine(f("EvenSt-ring$!"));
            Console.WriteLine(f("long"));
            Console.WriteLine(f("abcdABCD"));
            Console.WriteLine(f("3.141"));
            Console.WriteLine(f("~"));
            Console.WriteLine(f("0123456789"));
            Console.WriteLine(f("C ode - g ol!f"));
            Console.WriteLine(f("HatchingLobstersVexinglyPopulateJuvenileFoxglove"));
            
            //false:
            Console.WriteLine(f("Hello World"));
            Console.WriteLine(f("PPCG"));
            Console.WriteLine(f("3.1415"));
            Console.WriteLine(f("babbage"));
            Console.WriteLine(f("Code-golf"));
            Console.WriteLine(f("Standard loopholes apply"));
            Console.WriteLine(f("Shortest answer in bytes wins"));
            Console.WriteLine(f("Happy golfing!"));
        }
    }
}
\$\endgroup\$
2
  • \$\begingroup\$ Nice answer! +1 It's funny that when I try to port your answer to Java 7 it's longer than the one I have. But when I try to port my answer to C# it's longer than what you have. ;) \$\endgroup\$ Oct 13, 2016 at 8:34
  • 1
    \$\begingroup\$ @KevinCruijssen Thanks, but there was a bug, which was not caught by any test case :( I'll try to find some other method later. \$\endgroup\$
    – adrianmp
    Oct 13, 2016 at 10:33
1
\$\begingroup\$

PHP, 69 Bytes

for(;$i<strlen($s=$argv[1])-1;)$d+=1-ord($s[$i++]^$s[$i])%2;echo$d<1;

solution with Regex 81 Bytes

for(;$i<strlen($s=$argv[1]);)$t.=ord($s[$i++])%2;echo 1-preg_match("#00|11#",$t);
\$\endgroup\$
1
\$\begingroup\$

PowerShell v2+, 47 bytes

-join([char[]]$args[0]|%{$_%2})-notmatch'00|11'

(Can't quite catch PowerShell's usual competitors ...)

Takes input $args[0] as a string, casts it as a char-array, loops through it |%{...}, each iteration placing the modulo on the pipeline (with implicit [char] to [int] conversion). Those are encapsulated in parens and -joined into a string, which is fed into the left-hand of the -notmatch operator, checking against 00 or 11 (i.e., returns True iff the 0s and 1s alternate). That Boolean result is left on the pipeline and output is implicit.

Test Cases

PS C:\Tools\Scripts\golfing> '#define','EvenSt-ring$!','long','abcdABCD','3.141','~','0123456789','C ode - g ol!f','HatchingLobstersVexinglyPopulateJuvenileFoxglove'|%{"$_ --> "+(.\evenst-ring-c-ode-g-olf.ps1 $_)}
#define --> True
EvenSt-ring$! --> True
long --> True
abcdABCD --> True
3.141 --> True
~ --> True
0123456789 --> True
C ode - g ol!f --> True
HatchingLobstersVexinglyPopulateJuvenileFoxglove --> True

PS C:\Tools\Scripts\golfing> 'Hello World','PPCG','3.1415','babbage','Code-golf','Standard loopholes apply','Shortest answer in bytes wins','Happy golfing!'|%{"$_ --> "+(.\evenst-ring-c-ode-g-olf.ps1 $_)}
Hello World --> False
PPCG --> False
3.1415 --> False
babbage --> False
Code-golf --> False
Standard loopholes apply --> False
Shortest answer in bytes wins --> False
Happy golfing! --> False
\$\endgroup\$
1
\$\begingroup\$

><>, 29 27 bytes

i2%\0 n;n 1<
0:i/!?-}:%2^?(

Outputs 1 if the word is even, 0 if the word is odd.

You can try it online.

Edit : saved two bytes thanks to Martin Ender

\$\endgroup\$
0
1
\$\begingroup\$

Perl 6,  47  26 bytes

{?all .ords.rotor(2=>-1).map({(.[0]+^.[1])%2})}
{[~](.ords X%2)!~~/(.)$0/}

Expanded:

# bare block lambda with implicit parameter $_
{
  [~](             # reduce using concatenation operator ( no space chars )
    .ords X[%] 2   # the ordinals cross modulus with 2 ( 1 or 0 )
  # ^-- implicit method call on $_
  )

  ![~~]            # negating meta operator combined with smartmatch operator

  / ( . ) $0 /     # is there a character followed by itself?
}
\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.