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

Re: takeWhile ?

Thread Previous | Thread Next
From:
Timo Paulssen
Date:
September 11, 2017 20:07
Subject:
Re: takeWhile ?
Message ID:
7263cc4e-80bf-dd63-4724-57daeab2243b@wakelift.de
If I understand your problem correctly, you can simply use ...^ to leave
out the last element :)


On 09/11/2017 10:01 PM, Marc Chantreux wrote:
> 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
>
>

Thread Previous | 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