deleted 54 characters in body

edited Sep 16, 2021 at 15:34

Perl 5, 45 44 bytes

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)*0,@_}

A translation of the JavaScript answer from @Arnauld. I'm at this point clueless to how and why this works.

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)*0,@_}

A translation of the JavaScript answer from @Arnauld. I'm at this point clueless to how and why this works.

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)*0,@_}

A translation of the JavaScript answer from @Arnauld.

added 1 character in body

edited Sep 16, 2021 at 12:05

Perl 5, 4545 44 bytes

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)-$n*0,@_}

A translation of the JavaScript answer from @Arnauld. I'm aat this point clueless to how and why this works.

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)-$n,@_}

A translation of the JavaScript answer from @Arnauld. I'm a this point clueless to how and why this works.

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)*0,@_}

A translation of the JavaScript answer from @Arnauld. I'm at this point clueless to how and why this works.

Post Undeleted by Kjetil S

occurred Sep 16, 2021 at 12:01

Post Deleted by Kjetil S

occurred Sep 16, 2021 at 2:30

answered Sep 15, 2021 at 22:28

sub{$n=$q=1;!grep$_-$n|($n*=@_/$q++-1)-$n,@_}

A translation of the JavaScript answer from @Arnauld. I'm a this point clueless to how and why this works.