mirror of
https://github.com/ganelson/inform.git
synced 2024-07-07 17:44:22 +03:00
91 lines
2.4 KiB
Plaintext
91 lines
2.4 KiB
Plaintext
package main _plain
|
|
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
|
|
constant (K_number) thirteen = 13
|
|
constant (K_list_of_values) primes = { 2, 3, 5, "seven", 11, thirteen }
|
|
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 }
|
|
constant (K_list_of_values) mutable = { 10, 20, 30 }
|
|
package Main _code
|
|
code
|
|
inv !enableprinting
|
|
inv !print
|
|
val "The third prime is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/primes
|
|
val (/main/K_number) 2
|
|
inv !print
|
|
val ".\n"
|
|
inv !print
|
|
val "The fourth prime is: "
|
|
inv !printstring
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/primes
|
|
val (/main/K_number) 3
|
|
inv !print
|
|
val ".\n"
|
|
inv !print
|
|
val "The sixth prime is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/primes
|
|
val (/main/K_number) 5
|
|
inv !print
|
|
val ".\n"
|
|
inv !print
|
|
val "The second pair of twins is: "
|
|
inv !printnumber
|
|
inv !lookupbyte
|
|
val (/main/K_list_of_values) /main/twins
|
|
val (/main/K_number) 2
|
|
inv !print
|
|
val ", "
|
|
inv !printnumber
|
|
inv !lookupbyte
|
|
val (/main/K_list_of_values) /main/twins
|
|
val (/main/K_number) 3
|
|
inv !print
|
|
val ".\n"
|
|
inv !print
|
|
val "I knaw of "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/carmichaels
|
|
val (/main/K_number) 0
|
|
inv !print
|
|
val " Carmichael numbers.\n"
|
|
inv !store
|
|
reference
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/mutable
|
|
val (/main/K_number) 1
|
|
val (/main/K_number) 666
|
|
inv !print
|
|
val "As mutated, middle entry is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/mutable
|
|
val (/main/K_number) 1
|
|
inv !print
|
|
val ".\n"
|
|
inv !store
|
|
reference
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/mutable
|
|
val (/main/K_number) 1
|
|
val (/main/K_number) 777
|
|
inv !print
|
|
val "As mutated, middle entry is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val (/main/K_list_of_values) /main/mutable
|
|
val (/main/K_number) 1
|
|
inv !print
|
|
val ".\n"
|
|
inv !quit
|