summaryrefslogtreecommitdiff
path: root/euler47.myr
blob: f53bec0d0f4573656fd974be3723ec65ab10b485 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
use std

const n_prime_factors = {n
	var nf = 0
	var p = 3

	if n % 2 == 0
		while n % 2 == 0
			n /= 2
		;;
		nf = 1
	;;

	while n > 1
		if n % p == 0
			while n % p == 0
				n /= p
			;;
			nf ++
		;;
		p += 2;
	;;
	-> nf
}


const main = {
	var i = 210
	while true
		if !(n_prime_factors(i) == 4)
			i++
			continue
		;;
		if !(n_prime_factors(i+1) == 4)
			i += 2
			continue
		;;
		if !(n_prime_factors(i+2) == 4)
			i += 3
			continue
		;;
		if !(n_prime_factors(i+3) == 4)
			i += 4
			continue
		;;
		std.put("{}\n", i)
		break
	;;
}