Post History
Perl, 22 bytes perl -pe'$_=y/13579//' input as newline-separated list of (one or more) strings y returns the number of characters replaced or deleted Try it online!
#1: Initial revision
by
jhnc
·
2026-03-10T08:23:19Z (6 months ago)
# [Perl], 22 bytes
<!-- language-all: lang-perl -->
perl -pe'$_=y/13579//'
* input as newline-separated list of (one or more) strings
* `y` returns the number of characters replaced or deleted
[Try it online!][TIO-mmkcbe3o]
[Perl]: https://www.perl.org/
[TIO-mmkcbe3o]: https://tio.run/##NY3disIwEEbv8xRDiKBQbZM2bWPIijcLi4KPUMQfLJQ22Hrhy5uNM/S7mDknyWT87dnpIPrOXR6Dt8w/2366A1@MsP4BnojGsqVokld/vd0TcV650XftZINo3DuVua5MmgbLRAMbB0sQZ@ci74DD6cBhG/vv/u/IYQUbiGtskPFQMhVrxnLkAlkjl8gVco1skGVG7TutmFRkOVlBpslKsoqsJjNoKsMv5Zxohqk5dKfyQpdV/R3QzMzBl5/BT@3Qj2Ht/wE "Perl 5 – Try It Online"