Une «chaîne paire» est une chaîne dans laquelle la parité des valeurs ASCII des caractères est toujours alternative. Par exemple, la chaîne EvenSt-ring$!est une chaîne paire car les valeurs ASCII des caractères sont les suivantes:

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

Et les parités de ces nombres sont:

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

Ce qui alterne tout le chemin. Cependant, une chaîne comme Hello world!n'est pas une chaîne paire car les valeurs ASCII sont les suivantes:

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

Et les parités sont:

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

Ce qui n'est clairement pas toujours en alternance.

Le défi

Vous devez écrire un programme complet ou une fonction qui accepte une chaîne en entrée et génère une valeur de vérité si la chaîne est paire, et une valeur falsy sinon. Vous pouvez effectuer vos entrées et vos sorties dans n’importe quel format raisonnable, et vous pouvez supposer que l’entrée aura uniquement l’ impression ASCII (plage 32-127). Vous n'êtes pas obligé de gérer une entrée vide.

Exemples

Voici quelques exemples de chaînes égales:

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

Et tous ces exemples ne sont même pas des chaînes:

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

Vous pouvez également utiliser cette solution non-golfée pour tester des chaînes si vous êtes curieux de connaître un certain cas de test.

MATL , 4 3 octets

Merci à Emigna d’ avoir économisé un octet et merci àLuis Mendo for fixing some bugs. Code:

doA

Explication:

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

Essayez-le en ligne!

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

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

Python 2, 54 Bytes

lambda s:all((ord(x)-ord(y))%2for x,y in zip(s,s[1:]))

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}&

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>

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.

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 ==).

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)

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

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

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
([]<(())>){((<{}{}>))}{}

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

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.

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

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.

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.

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

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.

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.

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!

Mathematica, 41 40 Bytes

And@@OddQ@Differences@ToCharacterCode@#&

-1 character, thanks to Martin Ender

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

Pyke, 8 bytes

m.o$2m%B

Try it here!

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

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!"));
        }
    }
}

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);

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

><>, 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

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?
}

Scala, 54 bytes

(_:String)sliding 2 map(t=>t(0)%2!=t(1)%2)reduce(_&&_)

I'm sure this can be improved.