massa, #PerlWeeklyChallenge 235/01:
#RakuLangYou are given an array of integers.
Write a script to find out if removing ONLY one integer makes it strictly increasing order.
my answer:
sub remove-one(@_@hachyderm.io) { (^+@_@hachyderm.io).map({[<] @_@hachyderm.io[|(^$_), |($_+1 ..^ +@_@hachyderm.io)]}).any.so }
Add comment