The Quick answer:
Try this:
rotate :: Int -> [Char] -> [Char]
rotate x st = take (length st) $ drop (negate x `mod` length st) $ cycle st
It yields:
rotate (1) "hello"
>>> "ohell"
rotate (-1) "hello"
>>> "elloh"
The Explanation:
The insight needed for this to work, is knowledge of the cycle
function, which repeats a string forever.
cycle "ezra"
>>> "ezraezraezraezraezr..." (forever)
Using this knowledge, we can exploit length
, take
, and drop
to give us the part of the string that we want. We'll also use negate
and mod
for the math part.
length
length
returns the length of the list (strings are lists of characters).
length "ezra"
>>> 4
take
take n
returns the first n
items in a list.
take 9 (cycle "ezra")
>>> "ezraezrae"
drop
drop n
returns the whole list, except the first n
elements.
drop 3 "ezra"
>>> "a"
drop 3 (take 9 (cycle "ezra"))
>>> "aezrae"
mod
Using the mod
function, we can get the proper offsets. The backticks ` make the function "infix", which makes it more understandable. This is the "remainder" after the division, if you're not familiar with modular arithmetic.
10 `mod` 3
>>> 1
This will give us the starting point.
negate
negate n
returns the negation of n
, which we need to "reverse" the direction, and get the output you wanted.
negate 10
>>> -10
When we put it all together, we get the function above. There are, of course, many ways to do this: this is one.
In my solution above, I developed it in in the following order.
Get the infinite list:
rotate x st = cycle st
Take the right number of characters:
rotate x st = take (length st) $ cycle st
Take the characters from the right position:
rotate x st = take (length st) $ drop (x `mod` length st) $ cycle st
At this point I had what I wanted, but had to add negate
so that my output would match yours.
I also added the type signature. I like to have them explicit on as many of my functions as I can.
f
used in theprocess
function? 3. Why are you redefiningmap
? You don't even use the new definition ofmap
. 4. Detailed subjects are good - 'help with haskell' doesn't say anything the tags don't already tell me.do
at all.rotate -1 hello --> elloh
androtate 4 hello --> elloh