Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

edited Jun 17, 2020 at 9:04

#Perl 5, 31 bytes

Perl 5, 31 bytes

sub{map$x+=$_,@_;map$x-$_&1,@_}

Outputs 1 for odd and 0 for even.

#Perl 5, 31 bytes

sub{map$x+=$_,@_;map$x-$_&1,@_}

Outputs 1 for odd and 0 for even.

sub{map$x+=$_,@_;map$x-$_&1,@_}

Outputs 1 for odd and 0 for even.

answered May 2, 2017 at 21:42

answered May 2, 2017 at 21:42

#Perl 5, 31 bytes

sub{map$x+=$_,@_;map$x-$_&1,@_}

Outputs 1 for odd and 0 for even.