Here's a version of the Perl 6 code that's almost as terse as average Haskell code:

my $cmp = sub ($x) {
    state $prv;
    $x ne $prv ?? $prv = $x !! return;
}
[download]