Keskustelu: Yleinen keskustelu: Hetket kahdella numerolla

rebol[]
substr: func [string start length][ ;tuottaa alimerkkijonon
  copy/part at string start length
]
print "odota"
day: 1/2/2022
laskeluvut: func[][ ;laskee kuinka monta eri lukua ajassa x/2/2022 x:xx on
	lukuja: copy[0 0 0 0 0 0 0 0 0 0]
	for i 0 9 1 [
		luku: to-string i
		for j 1 length? luvut 1 [
			if (luvut/(j) = to-string luku) [lukuja/(i + 1): lukuja/(i + 1) + 1]
		]
	]
	lkm: 0
	for k 1 length? lukuja 1 [
		if lukuja/(k) <> 0 [lkm: lkm + 1]
	]
	return lkm
]
lukumäärä: 0
while [day <= 28/2/2022][
	time: 0:00
	while [time <= 24:00][
		luvut: copy[]
		vuosi: to-string day/year
		for l 1 length? vuosi 1 [
			append luvut substr vuosi l 1
		]
		kuukausi: to-string day/month
		for l 1 length? kuukausi 1 [
			append luvut substr kuukausi l 1
		]
		päivä: to-string day/day
		for l 1 length? päivä 1 [
			append luvut substr päivä l 1
		]
		tunti: to-string time/hour
		for l 1 length? tunti 1 [
			append luvut substr tunti l 1
		]
		minuutit: to-string time/minute
		for l 1 length? minuutit 1 [
			append luvut substr minuutit l 1
		]
		if (laskeluvut <= 2) [ ;hyväksytäänkö tuotettu ajan hetki?
			lukumäärä: lukumäärä + 1
			stringinä: replace to-string day "feb" "2"
			stringinä: replace/all stringinä "-" "/"

			print [stringinä time]
		]
		time: time + 00:01 ;kasvatetaan aikaa minuutilla
	]
	day: day + 1 ;kasvatetaan päivää yhdellä
]
print lukumäärä
halt

<?php
function time_range($start, $end, callable $next, ?callable $format = null, ?callable $filter = null) {
	for ($t = $start; $t <= $end; $t = $next($t)) {
		$s = $format ? $format($t) : $t;
		if (!$filter || $filter($s)) {
			yield $s;
		}
	}
}

// Helmikuu 2022, päivämäärät numeroista 0 ja 2.
print_r(iterator_to_array(time_range(
	start: strtotime("2022-02-01"),
	end: strtotime("2022-03-01"),
	next: fn($x) => strtotime("next day", $x),
	format: fn($x) => date("j.n.Y", $x),
	filter: fn($x) => strspn($x, "02.:") == strlen($x)
)));

// Kellonajat numeroista 0 ja 2.
print_r(iterator_to_array(time_range(
	start: strtotime("2000-01-01 00:00:00"),
	end: strtotime("2000-01-01 23:59:59"),
	next: fn($x) => $x + 60,
	format: fn($x) => date("G:i", $x),
	filter: fn($x) => strspn($x, "02.:") == strlen($x)
)));

// 2000–2999, vain 1 tai 2 numerosta muodostuvat päivämäärät.
print_r(iterator_to_array(time_range(
	start: strtotime("2000-01-01"),
	end: strtotime("2999-12-31"),
	next: fn($x) => strtotime("next day", $x),
	format: fn($x) => date("j.n.Y", $x),
	filter: fn($x) => strlen(count_chars($x, mode: 3)) <= 3 # eli 2 numeroa ja piste.
)));