<div dir="ltr">I'm nitpicking here, but it can be improved a bit<div><br></div><div><div style="font-size:12.8000001907349px">doubleEveryOther :: [Integer] -> [Integer]</div><div style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">doubleEveryOther [] = []</span><br></div><div style="font-size:12.8000001907349px">doubleEveryOther [x] = [x]</div><div style="font-size:12.8000001907349px"><span style="font-size:12.8000001907349px">doubleEveryOther (x:y:xs) = x : 2 * y : doubleEveryOther (xs)</span><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-05-14 8:48 GMT+02:00 Nishant <span dir="ltr"><<a href="mailto:nishantgeek@gmail.com" target="_blank">nishantgeek@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">This will double very second digit in list.  To do from right, just reverse the list first and then apply doubleEverySecond and then reverse back. <div><br></div><div><br></div><div><br></div><div><div>doubleEveryOther :: [Integer] -> [Integer]</div><div><br></div><div>doubleEveryOther [] = []</div><div>doubleEveryOther (x : []) = [x]</div><div>doubleEveryOther (x : y : []) = x : (2 * y) : []</div><div>doubleEveryOther (x:y:xs) = x : (2 * y) : doubleEveryOther (xs)</div></div><div><br></div></div><div class="gmail_extra"><div><div class="h5"><br><div class="gmail_quote">On Wed, May 13, 2015 at 10:22 PM, Roelof Wobben <span dir="ltr"><<a href="mailto:r.wobben@home.nl" target="_blank">r.wobben@home.nl</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hello,<br>
<br>
I try to make make the assignment of CIS194 where I must multiply every  second item from the right by 2<br>
<br>
So I thought this could be working :<br>
<br>
-- | Convert a digit to a reversed list for example 123 becomes [3,2,1]<br>
revtoDigits :: Integer -> [Integer]<br>
revtoDigits number<br>
  | number <= 0 = []<br>
  | number > 0 = number`mod` 10 : revtoDigits (number `div` 10)<br>
<br>
-- | Convert a digit to a list for example 123 becomes [1,2,3]<br>
toDigits :: Integer -> [Integer]<br>
toDigits number<br>
  | number <= 0 = []<br>
  | number > 0 = toDigitsAcc [] number<br>
<br>
toDigitsAcc:: [Integer] -> Integer -> [Integer]<br>
toDigitsAcc acc number<br>
  | number <= 0  = acc<br>
  | number > 0 =  toDigitsAcc ((number `mod` 10) : acc) (number `div` 10)<br>
<br>
doubleEveryOther :: [Integer] -> [Integer]<br>
doubleEveryOther list  = case (length list) `mod` 2 of 0 -> doubleEveryOther [] = []<br>
doubleEveryOther (x:y:xs) = x*2 : y : xs<br>
                              (length list) `mod` 2 of 0 -> doubleEveryOther [] = []<br>
doubleEveryOther (x:y:xs) = x : y*2 : xs<br>
<br>
<br>
-- | The main entry point.<br>
main = print $ doubleEveryOther [1,2,3]<br>
<br>
<br>
but apperantly you cannot have pattern matching after a case statement because I get a error on the =  of a empty list<br>
<br>
Roelof<br>
<br>
<br>
---<br>
Dit e-mailbericht is gecontroleerd op virussen met Avast antivirussoftware.<br>
<a href="http://www.avast.com" target="_blank">http://www.avast.com</a><br>
<br>
_______________________________________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org" target="_blank">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners</a><br>
</blockquote></div><br><br clear="all"><div><br></div></div></div><span class="HOEnZb"><font color="#888888">-- <br><div>Nishant</div>
</font></span></div>
<br>_______________________________________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Jonathan Skårstedt<br>Bergsgårdsgärdet 39<br>Lgh 1108<br>424 32 Göteborg<br>Mobil: 073 - 76 20 20 7<br></div>
</div>