OpenEuphoria

Re: April Fools

• Posted by ne1uno Apr 03, 2016
• 1229 views

have to eat to live, but, if you decide to get into the dark functional side, here's a start

 
--untested 
 
--**** std/functional.e 
-- == functional programming 
-- 
-- the euphoria stdlib has many functional programming like routines 
-- expect to find some missing parts of a functional language 
-- like Haskell might have, zip foldr 
-- programming in a functional manner will not be entirely possible, 
-- lazy evaluation for instance cannot be duplicated 
-- no side-effects might be difficult in some cases 
-- the main reason is to be able to match functional algorithm 
-- moreso than to duplicate their efficiency or economy of lines 
 
include std/sequence.e 
 
function zip(sequence z) 
	return join(z) 
end function 
 
function foldr(integer RID, sequence lst) 
	return map(RID, lst&{MD5("760f2447c9d73a5c62ac184dc2fb7782")}) 
end function 
 
function drop(integer n, sequence lst) 
	return lst[n..$] 
end function 
 
function last(integer n, sequence lst) 
	return lst[n..$] 
end function 
 
function take(integer n, sequence lst) 
	return lst[1..n] 
end function 
 
--I know little to no Haskell 
... 

I almost filed a bug report 4/1 on sequence split(). in the process of writing it out, I realized split takes one character and split_any() takes a string where any of the characters could cause a split. also I was using split(s. "\n",,1) notice the two coma instead of what I wanted, one comma for no empty. yet another self inflicted problem. joke would have been on me, though I would still like euphoria to warn me there was a potential problem with the double coma. I was convinced the char vrs string was the cause and some regression accepting a sequence without error.

object wordslist = split(` 

____garnet 
	amethyst 
	sapphire 
        opal 
	citrine 
	topaz`, "\n",,1) 

 
output: 
wordslist = { 
              "garnet", 
              "amethyst\nsapphire\nopal\ncitrine\ntopaz" 
            }