2021-08-01 01:44:47 +03:00
|
|
|
package main _plain
|
2022-02-23 01:31:47 +02:00
|
|
|
typename K_unchecked = unchecked
|
|
|
|
typename K_unchecked_function = function K_unchecked -> K_unchecked
|
|
|
|
typename K_unchecked_list = list of K_unchecked
|
|
|
|
typename K_number = int32
|
|
|
|
typename K_int2 = int2
|
|
|
|
typename K_list_of_values = list of K_unchecked
|
2022-02-17 01:44:18 +02:00
|
|
|
constant (K_number) thirteen = 13
|
|
|
|
constant (K_list_of_values) primes = { 2, 3, 5, "seven", 11, thirteen }
|
2022-03-17 14:07:10 +02:00
|
|
|
constant (K_list_of_values) twins = bytes{ 3, 5, 5, 7, 11, 13, 17, 19 }
|
|
|
|
constant (K_list_of_values) carmichaels = bounded { 561, 1105, 1729, 2465, 2821, 6601, 8911, 10585, 15841, 29341, 41041, 46657 }
|
2022-02-17 01:44:18 +02:00
|
|
|
constant (K_list_of_values) mutable = { 10, 20, 30 }
|
2022-03-14 15:53:55 +02:00
|
|
|
package Main _code
|
2022-02-08 13:37:44 +02:00
|
|
|
code
|
2022-02-08 21:06:41 +02:00
|
|
|
inv !enableprinting
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "The third prime is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/primes
|
|
|
|
val (/main/K_number) 2
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "The fourth prime is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printstring
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/primes
|
|
|
|
val (/main/K_number) 3
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "The sixth prime is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/primes
|
|
|
|
val (/main/K_number) 5
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "The second pair of twins is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookupbyte
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/twins
|
|
|
|
val (/main/K_number) 2
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ", "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookupbyte
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/twins
|
|
|
|
val (/main/K_number) 3
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "I knaw of "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/carmichaels
|
|
|
|
val (/main/K_number) 0
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val " Carmichael numbers.\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !store
|
|
|
|
reference
|
2021-08-07 17:44:01 +03:00
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/mutable
|
|
|
|
val (/main/K_number) 1
|
|
|
|
val (/main/K_number) 666
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "As mutated, middle entry is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/mutable
|
|
|
|
val (/main/K_number) 1
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !store
|
|
|
|
reference
|
2021-08-07 17:44:01 +03:00
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/mutable
|
|
|
|
val (/main/K_number) 1
|
|
|
|
val (/main/K_number) 777
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val "As mutated, middle entry is: "
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !printnumber
|
|
|
|
inv !lookup
|
2022-02-15 01:45:34 +02:00
|
|
|
val (/main/K_list_of_values) /main/mutable
|
|
|
|
val (/main/K_number) 1
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !print
|
2022-02-15 01:45:34 +02:00
|
|
|
val ".\n"
|
2022-02-08 13:37:44 +02:00
|
|
|
inv !quit
|