SHARE
TWEET

Untitled

a guest Sep 18th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. pairwise l = zip l $ drop 1 l
  2.  
  3. isSequential (a, b) =
  4.     let a' = ord a
  5.         b' = ord b
  6.     in  b' == a'+1
  7.  
  8. ascendingSeq l = let p = pairwise l in span isSequential p
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top