Euler Project 111 Code越来越短

Question

我正在解决Euler Project＃111问题，​​并且我编写的代码运行时间过长。我该如何写得更短，更简单，更快？ 问题是链接 https://projecteuler.net/problem=111

$newcodebanque= "AAAAA"

$newcodeguichet= "BBBBB"

$newcodecompte= "CCCCCCCCCCC"

$newdate= "dd"

$listerib = Get-ChildItem .\ -filter *.rib 

ForEach ($rib in $listerib)
{
(get-content $rib -raw) | ForEach-Object {$_.Remove(2,5).insert(2,$newcodebanque).Remove(11,5).insert(11,$newcodeguichet).remove(21,11).insert(21,$newcodecompte).remove(38,2).insert(38,$newdate)} | set-content $rib }