develooper Front page | perl.perl6.users | Postings from September 2017

takeWhile ?

Thread Next
From:
Marc Chantreux
Date:
September 11, 2017 20:01
Subject:
takeWhile ?
Message ID:
20170911200102.GB22764@home.u-strasbg.fr
hello,

doing maths with my kid, i just translated his spreadsheet with those
lines of haskell:

	rebonds height loss = height : rebonds (height - height * loss) loss
	main = print $ takeWhile (> 2) $ rebonds 116 0.6

then i wanted to make it as short as possible in perl6, i'm almost
there:

	(116, * * .6  ... * < 2 ).say

but the first $_ < 2 remains in the list. the only one alternative i see
is a gather/take loop but i really expect something shorter from perl6
:)

any idea ?

regards


-- 
Marc Chantreux (eiro on github and freenode)
http://eiro.github.com/
http://eiro.github.com/atom.xml
"Don't believe everything you read on the Internet"
    -- Abraham Lincoln

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About