-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathPrimeNumber.fas
50 lines (50 loc) · 2.98 KB
/
PrimeNumber.fas
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
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 22 (DEFUN PRIME (N) ...)-1|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|PRIME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|PRIME|
#88Y(00 00 00 00 01 00 00 00 26 02 DA 31 62 DB 31 62 AD DC 90 01 2F 2B
AD DE 90 01 33 28 C7 0F 05 CB 0F 07 AD 6B 05 32 D3 0F 07 14 8F AC
1A E2 38 01 31 8F 6B 05 AE 91 01 2F 1C CE 14 38 01 31 8F 19 02 C8
1B 76 C9 19 02 6B 05 32 B1 0F 05 14 AE 91 01 2F 4F 1B 5D 00 19 02)
((|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|DIV|)
(|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|RESTO|) 2.
"Il numero e' primo" 1. |COMMON-LISP-USER|::|DIV| 0.
|COMMON-LISP-USER|::|RESTO| "Il numero non e' primo"
"Il numero e' primo")
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|24 50 (DEFUN LIST-PRIME (N) ...)-2|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|LIST-PRIME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|LIST-PRIME|
#104Y(00 00 00 00 01 00 00 00 26 02 DA 31 62 DB 31 62 DC 31 62 AD DD 90
01 2F 80 48 AD DD 90 01 31 80 44 C8 0F 05 CB 0F 07 CD 0F 09 DD 38
01 31 8E 6B 09 6B 05 32 D3 0F 07 14 8E AC 14 6B 05 32 B1 0F 05 6B
05 6B 09 91 01 2F 66 6B 09 38 01 31 8E 6B 09 32 B1 0F 09 C8 0F 05
6B 09 AE 91 01 32 50 00 19 02 C8 19 02 C9 19 02)
((|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|DIV|)
(|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|RESTO|)
(|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|NV|) 2. 1.
|COMMON-LISP-USER|::|DIV| 0. |COMMON-LISP-USER|::|RESTO| 3.
|COMMON-LISP-USER|::|NV|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|52 65 (DEFUN FIBONACCI (N) ...)-3|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|FIBONACCI| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|FIBONACCI|
#63Y(00 00 00 00 01 00 00 00 26 02 DA 31 62 DB 31 62 DC 31 62 C8 0F 04
CA 0F 06 0F 07 DD 1B 18 6B 06 6B 07 33 02 37 0F 04 0E 06 0F 07 0E
04 0F 06 14 38 11 31 8C 85 00 AC AF 91 01 34 62 00 19 03)
((|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|SOMMA|)
(|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|F1|)
(|COMMON-LISP|::|SPECIAL| |COMMON-LISP-USER|::|F2|) 0.
|COMMON-LISP-USER|::|SOMMA| 1. |COMMON-LISP-USER|::|F1|
|COMMON-LISP-USER|::|F2|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|N|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))