[Question]
  [
An 'Even string' is any string where the [parity](https://en.wikipedia.org/wiki/Parity_(mathematics)) 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](http://meta.codegolf.stackexchange.com/q/2190/31716) 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](https://en.wikipedia.org/wiki/ASCII#Printable_characters) (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](http://julia.tryitonline.net/#code=c3RyID0gcmVhZGxpbmUoU1RESU4pCmV2ZW4gPSB0cnVlCnBhcml0eSA9IEludChzdHJbMV0pICUgMgpmb3IgYyBpbiBzdHJbMjplbmRdCiAgbmV3UGFyaXR5ID0gSW50KGMpICUgMgogIGlmIG5ld1Bhcml0eSA9PSBwYXJpdHkKICAgIGV2ZW4gPSBmYWxzZQogIGVuZAogIHBhcml0eSA9IG5ld1Bhcml0eQplbmQKcHJpbnQoZXZlbik&input=MDEyMzQ1Njc4OQ) to test any strings if you're curious about a certain test-case.
  
[Answer]
# [MATL](http://github.com/lmendo/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!](http://matl.tryitonline.net/#code=ZG9B&input=J0hhdGNoaW5nTG9ic3RlcnNWZXhpbmdseVBvcHVsYXRlSnV2ZW5pbGVGb3hnbG92ZSc)
[Answer]
# [05AB1E](http://github.com/Adriandmen/05AB1E), ~~5~~ 4 bytes
Saved 1 byte thanks to *Adnan*.
```
Ç¥ÉP
```
[Try it online!](http://05ab1e.tryitonline.net/#code=w4fCpcOJUA&input=QyBvZGUgLSBnIG9sIWY)
**Explanation**
```
Ç       # convert to ascii values 
 ¥      # compute delta's
  É     # mod by 2
   P    # product
```
[Answer]
# [Jelly](http://github.com/DennisMitchell/jelly), ~~7~~ ~~5~~ 4 bytes
```
OIḂẠ
```
Saved 2 bytes using the deltas idea from @[Steven H.](https://codegolf.stackexchange.com/a/96063/6710)
Saved 1 byte thanks to @[Lynn](https://codegolf.stackexchange.com/users/3852/lynn).
[Try it online!](http://jelly.tryitonline.net/#code=T0nhuILhuqA&input=&args=RXZlblN0LXJpbmckIQ) or [Verify all test cases.](http://jelly.tryitonline.net/#code=T0nhuILhuqAKw4figqw&input=&args=JyNkZWZpbmUnLCdFdmVuU3QtcmluZyQhJywnbG9uZycsJ2FiY2RBQkNEJywnMy4xNDEnLCd-JywnMDEyMzQ1Njc4OScsJ0Mgb2RlIC0gZyBvbCFmJywnSGVsbG8gV29ybGQnLCdQUENHJywnMy4xNDE1JywnYmFiYmFnZScsJ0NvZGUtZ29sZicsJ1N0YW5kYXJkIGxvb3Bob2xlcyBhcHBseScsJ1Nob3J0ZXN0IGFuc3dlciBpbiBieXRlcyB3aW5zJywnSGFwcHkgZ29sZmluZyEn)
## Explanation
```
OIḂẠ  Input: string S
O     Ordinal
 I    Increments
  Ḃ   Mod 2
   Ạ  All, 0 if it contains a falsey value, else 1
```
[Answer]
# Python 2, 54 Bytes
```
lambda s:all((ord(x)-ord(y))%2for x,y in zip(s,s[1:]))
```
[Answer]
# 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}&
```
[Answer]
# 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>
```
[Answer]
# [Brain-Flak](https://github.com/DJMcMayhem/Brain-Flak), ~~138~~ ~~114~~ ~~112~~ 84 + 3 = 87 bytes
Thanks to [@Riley](https://codegolf.stackexchange.com/users/57100/riley) for help golfing.
This program treats empty input as a noneven string.
```
{({}(())){({}[()]<(()[{}])>)}{}(({})<>[[]{}]()){{}(<>)}{}({}<>)<>}<>(([])[()]){<>}{}
```
[Try it online!](http://brain-flak.tryitonline.net/#code=eyh7fSgoKSkpeyh7fVsoKV08KCgpW3t9XSk-KX17fSgoe30pPD5bW117fV0oKSl7e30oPD4pfXt9KHt9PD4pPD59PD4oKFtdKVsoKV0pezw-fXt9&input=RXZlblN0LXJpbmcgQyBvZGUgLSBnIG9sIWY&args=LWE)
## 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.
[Answer]
## 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 `==`).
[Answer]
# Pyth ([fork](https://github.com/Steven-Hewitt/pyth)), 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)
```
[Answer]
# [Brachylog](http://github.com/JCumin/Brachylog), 17 bytes
```
@c:{:2%}a@b:{l1}a
```
[Try it online!](http://brachylog.tryitonline.net/#code=QGM6ezoyJX1hQGI6e2wxfWE&input=IkV2ZW5TdC1yaW5nJCEi)
### 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
```
[Answer]
# 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.](https://tio.run/##nZTfb9MwEMff@1dcC0iJWLK22/jRKEMjY1SITZWK4AHxcHacxMPzRbbTLZrKv16cbm8DJPxi6ez7fO9O95WvcYMJtUJflz93XKG1cIlS348ApHbCVMgFXA0hACNSAjXwiDdovv8AjDP/sB35wzp0ksMVaMhhh8npvcdB5vMDls@yikw0xHyBMctlnkcy5y/m8bvpgmVGuM5oYKfTbLvLBrG2Y8qLPWpuSJZw45uK1s5IXe8LP3R0eAhfTOeafrEP17114ialzqWtz3SRTnk0eVaKSmoxSR0Vvu8zY7CP4hhewuRgsp/gb@SHjdBrlwxFn48DeEW6DsCQ8fLsfXEegB6ls@NZAPcrgJnO5kfHJ69ev3kbABdApYAEaiA1rv5LQOkHiSU63vjVfCbmE4z9Ku58pPoVtZ1CJz51fn1SiQu6qxVtnhjgUd576AKVFf/00FIoRfCNjCoDhl2tio@hyzwJABkyhnWI4wu/laQmVQWwa4e6RFOCImob/1VYwLZVfYhUQ8YJ6wC1vRXGf0XAen8Bt1LbAL2lb6SHYS7vkPEfjbAdbXe/AQ)
```
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
```
[Answer]
# Brain-Flak 155 151 141 121
Includes +3 for -a
Saved 30 bytes thanks to [1000000000](https://codegolf.stackexchange.com/a/96107/57100)
```
{({}(())){({}[()]<(()[{}])>)}{}({}()<>)<>}<>{({}[({})]<(())>){((<{}{}>))}{}({}[()]<>)<>}<>{{}}([]<(())>){((<{}{}>))}{}
```
Output:  
**truthy**: 1  
**falsy**: 0 on top of the stack
[Try it online! (truthy)](http://brain-flak.tryitonline.net/#code=eyh7fSgoKSkpeyh7fVsoKV08KCgpW3t9XSk-KX17fSh7fSgpPD4pPD59PD57KHt9Wyh7fSldPCgoKSk-KXsoKDx7fXt9PikpfXt9KHt9WygpXTw-KTw-fTw-e3t9fShbXTwoKCkpPil7KCg8e317fT4pKX17fQ&input=QyBvZGUgLSBnIG9sIWY&args=LWE)  
[Try it online! (falsy)](http://brain-flak.tryitonline.net/#code=eyh7fSgoKSkpeyh7fVsoKV08KCgpW3t9XSk-KX17fSh7fSgpPD4pPD59PD57KHt9Wyh7fSldPCgoKSk-KXsoKDx7fXt9PikpfXt9KHt9WygpXTw-KTw-fTw-e3t9fShbXTwoKCkpPil7KCg8e317fT4pKX17fQ&input=Q29kZS1nb2xm&args=LWE) 
---
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
([]<(())>){((<{}{}>))}{}
```
[Answer]
# [Starry](https://esolangs.org/wiki/Starry), 85 bytes
```
 ,       +    *   ` , +               + * ' +  ' `       +    * +   + *   '     +  `.
```
[Try it online!](http://starry.tryitonline.net/#code=ICwgICAgICAgKyAgICAqICAgYCAsICsgICAgICAgICAgICAgICArICogJyArICAnIGAgICAgICAgKyAgICAqICsgICArICogICAnICAgICArICBgLg&input=RXZlblN0LXJpbmcgQyBvZGUgLSBnIG9sIWYK)
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
```
[Answer]
## Perl, 24 + 1 (`-p`) = 25 bytes
*-4 bytes thanks to [@Ton Hospel](https://codegolf.stackexchange.com/users/51507/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.
[Answer]
# 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
```
[Answer]
# 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.
[Answer]
## [Retina](http://github.com/mbuettner/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!](http://retina.tryitonline.net/#code=JShHYApTX2AKJXsyYAokYAp9VDAxYHBgX3AKLi4KCk1tYC7Cti58XsK2JApeMA&input=I2RlZmluZQpFdmVuU3QtcmluZyQhCmxvbmcKYWJjZEFCQ0QKMy4xNDEKfgowMTIzNDU2Nzg5CkMgb2RlIC0gZyBvbCFmCkhhdGNoaW5nTG9ic3RlcnNWZXhpbmdseVBvcHVsYXRlSnV2ZW5pbGVGb3hnbG92ZQpIZWxsbyBXb3JsZApQUENHCjMuMTQxNQpiYWJiYWdlCkNvZGUtZ29sZgpTdGFuZGFyZCBsb29waG9sZXMgYXBwbHkKU2hvcnRlc3QgYW5zd2VyIGluIGJ5dGVzIHdpbnMKSGFwcHkgZ29sZmluZyE) (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](http://chat.stackexchange.com/transcript/message/32786271#32786271) 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`.
[Answer]
# 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>
[Answer]
## 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.
[Answer]
## 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.
[Answer]
## 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!
[Answer]
# Mathematica, ~~41~~ 40 Bytes
```
And@@OddQ@Differences@ToCharacterCode@#&
```
-1 character, thanks to Martin Ender
[Answer]
## 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](https://ideone.com/eZpLvL)
[Answer]
# 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!
[Answer]
## Pyke, 8 bytes
```
m.o$2m%B
```
[Try it here!](http://pyke.catbus.co.uk/?code=m.o%242m%25B&input=Hello+World)
```
m.o      -    map(ord, input)
   $     -   delta(^)
    2m%  -  map(> % 2, ^) 
       B - product(^)
```
[Answer]
# 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!"));
        }
    }
}
```
[Answer]
# 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);
```
[Answer]
## 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 `-join`ed 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 `0`s and `1`s 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
```
[Answer]
# [><>](https://esolangs.org/wiki/Fish), ~~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](https://fishlanguage.com/playground).
Edit : saved two bytes thanks to Martin Ender
[Answer]
# [Perl 6](https://perl6.org), ~~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?
}
```
]