summary refs log tree commit diff
path: root/lisc/test/collatz.ssa
blob: f8cab84a37e55dd5ad2f8d61efdeac7e3691ece4 (plain) (blame)
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
50
51
52
53
54
55
# a solution for N=1000 to
# https://projecteuler.net/problem=14
# we use a fast local array to
# memoize small collatz numbers

function $test {
@start
	%mem =l alloc4 4000
@loop
	%n =w phi @start 1, @newm %n9, @oldm %n9
	%cmax =w phi @start 0, @newm %c, @oldm %cmax
	%fin =w cslt %n, 1000
	jnz %fin, @cloop, @end
@cloop
	%n0 =w phi @loop %n, @odd %n2, @even %n3
	%c0 =w phi @loop 0, @odd %c1, @even %c1
	%no1 =w cne %n0, 1
	jnz %no1, @iter0, @endcl
@iter0
	%ism =w cslt %n0, %n
	jnz %ism, @getmemo, @iter1
@iter1
	%c1 =w add %c0, 1
	%p =w and %n0, 1
	jnz %p, @odd, @even
@odd
	%n1 =w mul 3, %n0
	%n2 =w add %n1, 1
	jmp @cloop
@even
	%n3 =w div %n0, 2
	jmp @cloop
@getmemo                     # get the count for n0 in mem
	%n0l =l sext %n0
	%idx0 =l mul %n0l, 4
	%loc0 =l add %idx0, %mem
	%cn0 =w load %loc0
	%c2 =w add %c0, %cn0
@endcl                       # store the count for n in mem
	%c =w phi @getmemo %c2, @cloop %c0
	%nl =l sext %n
	%idx1 =l mul %nl, 4
	%loc1 =l add %idx1, %mem
	storew %c, %loc1
	%n9 =w add 1, %n
	%big =w csle %cmax, %c
	jnz %big, @newm, @oldm
@newm
	jmp @loop
@oldm
	jmp @loop
@end
	storew %cmax, $a
	ret
}