PowerShell, 89 bajtów
"$args"-notmatch'(.)(.*)(.)'-or(($m=$Matches).1-ge$m.3-and(.\g(''+(+$m.1+$m.3)%10+$m.2)))
Ważny! Skrypt wywołuje się rekurencyjnie. Zapisz skrypt jako g.ps1
plik w bieżącym katalogu. Możesz także wywołać zmienną blokową skryptu zamiast pliku skryptu (patrz skrypt testowy poniżej). Te połączenia mają tę samą długość.
Uwaga 1: Skrypt używa leniwej oceny operatorów logicznych -or
i -and
. Jeśli "$args"-notmatch'(.)(.*)(.)'
jest, True
to prawidłowe podwyrażenie -or
nie jest oceniane. Również, jeśli ($m=$Matches).1-ge$m.3
jest False
to właściwe, to podwyrażenie -and
nie jest również oceniane. Unikamy więc nieskończonej rekurencji.
Uwaga 2: Wyrażenie regularne '(.)(.*)(.)'
nie zawiera kotwic początkowych i końcowych, ponieważ (.*)
domyślnie wyrażenie jest zachłanne.
Skrypt testowy
$g={
"$args"-notmatch'(.)(.*)(.)'-or(($m=$Matches).1-ge$m.3-and(&$g(''+(+$m.1+$m.3)%10+$m.2)))
}
@(
,(2632, $true)
,(92258, $true)
,(60282, $true)
,(38410, $true)
,(3210, $true)
,(2302, $true)
,(2742, $true)
,(8628, $true)
,(6793, $true)
,(1, $true)
,(2, $true)
,(10, $true)
,(100, $true)
,(55, $true)
,(121, $true)
,(6724, $false)
,(47, $false)
,(472, $false)
,(60247, $false)
,(33265, $false)
,(79350, $false)
,(83147, $false)
,(93101, $false)
,(57088, $false)
,(69513, $false)
,(62738, $false)
,(54754, $false)
,(23931, $false)
,(7164, $false)
,(5289, $false)
,(3435, $false)
,(3949, $false)
,(8630, $false)
,(5018, $false)
,(6715, $false)
,(340, $false)
,(2194, $false)
) | %{
$n,$expected = $_
#$result = .\g $n # uncomment this line to call a script file g.ps1
$result = &$g $n # uncomment this line to call a script block variable $g
# the script block call and the script file call has same length
"$($result-eq-$expected): $result <- $n"
}
Wydajność:
True: True <- 2632
True: True <- 92258
True: True <- 60282
True: True <- 38410
True: True <- 3210
True: True <- 2302
True: True <- 2742
True: True <- 8628
True: True <- 6793
True: True <- 1
True: True <- 2
True: True <- 10
True: True <- 100
True: True <- 55
True: True <- 121
True: False <- 6724
True: False <- 47
True: False <- 472
True: False <- 60247
True: False <- 33265
True: False <- 79350
True: False <- 83147
True: False <- 93101
True: False <- 57088
True: False <- 69513
True: False <- 62738
True: False <- 54754
True: False <- 23931
True: False <- 7164
True: False <- 5289
True: False <- 3435
True: False <- 3949
True: False <- 8630
True: False <- 5018
True: False <- 6715
True: False <- 340
True: False <- 2194
PowerShell, 90 bajtów
Brak rekurencji. Brak zależności od nazwy pliku i brak zależności od nazwy bloku skryptu.
for($s="$args";$s[1]-and$s-ge$s%10){$s=''+(2+$s[0]+$s)%10+($s|% S*g 1($s.Length-2))}!$s[1]
Powershell domyślnie konwertuje prawy operand na typ lewego operandu. Dlatego $s-ge$s%10
oblicza prawy operand $s%10
jako integer
i porównuje go jako, string
ponieważ typ lewego operandu to string
. I 2+$s[0]+$s
konwertuje znak $s[0]
i ciąg znaków $s
na, integer
ponieważ lewy operand 2
jest liczbą całkowitą.
$s|% S*g 1($s.Length-2)
jest skrótem do$s.Substring(1,($s.Length-2))