-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtiny_gen.tiny.vocab
More file actions
153 lines (153 loc) · 19.8 KB
/
Copy pathtiny_gen.tiny.vocab
File metadata and controls
153 lines (153 loc) · 19.8 KB
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
BCOV5 <unk> <sep> <eos>
add (set const-string 10 prompt_x "enter x: ") prompt_y y: (prompt_x :print_s !) (x :input_i (prompt_y (y + y z :=) (z :print_i (:print_n plus addition anagram const-int64 1 zero 0) one 1) int64 a 123) b 321) temp_a temp_b digit sum_a sum_b prod_a prod_b f ten 10) string s
result_yes "anagrams") result_no "not
anagrams") (a (b (zero (one
(for-loop) (((temp_a >) for) (temp_a % (sum_a (prod_a * / (next) (((temp_b (temp_b (sum_b (prod_b (((sum_a !=) if) (endif) (((prod_a (((f ==) if+) (result_yes (else)
(result_no check word armstrong temp sum orig count i digit_pow armstrong_number_str
"armstrong number") not_armstrong_str armstrong") armstrong_number_str_1 not_armstrong_str_1 (n (do) (count (temp (((temp while) (((i <)
(digit_pow (i (sum (((orig (armstrong_number_str_1 (not_armstrong_str_1 number narcissistic array access realind (index
int64_size (arr [ ] value =) (value read get element index assign 5 arr aux
prompt_idx (0-4):
prompt_val value: err_idx "error: out of bounds (0-4)!") arrsize 5) (prompt_idx
assignment average val avg (avg mean demo n 8 4 3) num (num find found 17 found_str " at 11 notfound_str not found") (((a key (:found_break jmp) (:found_break) (((found (key (notfound_str
(found_str linear search in for an iterate (val loop traverse print list min max mn mx min_str "min: max_str "max: avg_str "average: reverse realind_l realind_r tmp lval rval left right - (((left (left (right (lval (rval invert flip j temp2 realind2 (j (temp2 total vmath (mn (mx (((val stats write (newval set store ascii art five space str_str "*") str_str_1 triangle keywords matching sixteen 16) ch asc_start 32) asc_end 128) msg_str "ascii table (32-127):") (msg_str
(asc_start compute bar chart 3 7 9 2) "#")
horizontal base converter two ri 64 digits idx
prompt_num decimal number: prompt_base (2-16):
result_str "result: (prompt_num (prompt_base (base (idx (digit (result_str to
conversion precision 50) potnum 4096)
outstr_len 4095) baseaddr potaddr resaddr outaddr basestr "2.0") potstr "4096.0") resstr "0.0") formatstr "%.20ff") msgstr "2 ^ 4096 =") outstr "") :mp_math_init call) (msgstr (basestr :mp_set_float (potstr (baseaddr :mp_pow_float (resaddr :mp_prints_float (outstr binary low high 9) mid
prompt_key key: found_at_index_str "found not_found_str found_at_index_str_1 not_found_str_1 bit mask result bit_is_0_str "bit is 0") bit_is_1_str 1") bit_is_0_str_1 bit_is_1_str_1 (((bitpos (mask (bitpos bitpos & (((result (bit_is_0_str_1 (bit_is_1_str_1 test bmi
calculator three choice double weight 0.0) height tempd const-double zerod c_703 703.0) menu_str "1-metric
2-imperial 3-quit") prompt_choice
"choice:") prompt_weight "weight (kg/lbs): prompt_height "height (m/in): bmi_str "bmi: (((one (menu_str (prompt_choice (choice (((choice :exit (prompt_weight (weight :input_d (prompt_height (height body mass metric imperial heig boolean variable flag 13 true_str "flag true") 14 false_str false") bubble sort desc x
descending
absteigend numbers ascending simple caesar cipher twentysix 26) 42) power msg "caesar shift: msg2 -> shift four 4) six 6) op "1-add 2-sub 3-mul 4-div 5-mod 6-quit") op_str "op: prompt_a a: prompt_b b: (op_str (op (((op (prompt_a (prompt_b (result :print_ subtract :p multiply divide :pri mod chess problem maxloop 64) field onestr "1.0") twostr fieldstr totalstr textstr "chess field: totalnumstr "total: emptystr (onestr (twostr (fieldstr (totalstr (((loop <=) (textstr (loop (field :mp_add_float :mp_mul_float (total :mp_print_float (totalnumstr (tot wheat and
chessboard exponential circle area threehundredfourteen 314) hundred 100) r2 (radius radius (r2 (area collatz (((mod (((n
conjecture 3n+1 compound interest
(principal amount years (amount rate (f calculation
zinseszins countdown vowels maxlen 256) 256 str len strmod enter_a_string_str string: enter_a_string_str_1 (strmod :string_init (enter_a_string_str_1 (maxlen :input_s (str :string_len :string_getchar (((ch 'a' 'e' 'i' 'o' 'u' vowel vokale zaehlen place (bit (place dec bin dice roll "you rolled:
:math_init :math_randinit (six :math_randintmax (roll stpopi) würfel random division quotient dzero (dzero +d i->d /d :print_d 0 ((val <d) >d) h2 ((height *d) ((weight /d) (bmi done 1.0)
onehundred 100.0) factor 12) ((rate ((base +d) (done ((factor ((principal
investment discount ((price percent
((discount -d) final_price (final_price price kinetic energy half 0.5) v2
((velocity velocity ((half ((energy (energy math r 21 first 22 second calculate
arithmetic floating point exp ((result *) pow exponent
pythagoras a2 b2 ((a ((b ((a2 c (c :math_sqrtdouble stpopd) pythagorean
((interest time (interest sqrt pi 3.14159) (root square root standard deviation vals 2.0 4.0 4.0) diff variance dcount (vals ((sum :math_int2double (dcount ((diff (variance (stddev stddev temperature nine 9.0) 5.0) thirtytwo 32.0) ((celsius ((temp
fahrenheit (fahrenheit celsius volume sphere 3.0) r3 ((radius ((r2 ((four ((volume (volume kugelvolumen even odd limit 20) even_str even") odd_str odd") (((max (limit (even_str (odd_str or gerade oder ungerade factorial fact (fact iterative recursive fann create max_ann
mod_handle ret 12 ann_file "my_ann.net") 33 "creating neural network...") (max_ann stpushi) (mod_handle (fann_init_lib (ann_file addr (ret (fann_create network run
num_inputs num_outputs inputs 05 03) outputs 28 "running inference...") out_str "output:
(fann_read (inputs (outputs (num_inputs (num_outputs (fann_run (out_str inference train
max_epochs 1000) epochs_between desired_error 0.001) 16 data_file "train_data.dat") "training
(data_file (max_epochs (epochs_between (desired_error stpushd) (fann_train_ann_file
(fann_save fibonacci fib sequence 100 rr threshold prompt_n numbers: prompt_thresh "threshold: "filtered (> threshold): space_str (prompt_n (prompt_thresh
(threshold (rr := largest maximum greatest biggest fizzbuzz fizz buzz modfizz modbuzz fizzstr "fizz") buzzstr "buzz") ((modfizz && (modbuzz (fizzstr (buzzstr (:skip
(((modfizz
(((modbuzz (:skip) compact (start down backwards decrement from range frequency analysis seven 7) eight 8) 26 freq "letter frequencies a-j: counter letter character function 23) sq hello "hello world!") (hello (sq define
subroutine arg retval gcd (((b common divisor ggt guess secret
prompt_str "guess (1-100): high_str "too high!") low_str low!") win_str "correct!") (hundred :random_i (prompt_str (guess (((guess (high_str (low_str (win_str zahl guessing game tower hanoi name ask_str "what your name? hello_str "hello, (ask_str
(hello_str (name greet user say greeting world hi basic hex byte &ff) &ffffffffffffffff) bbin b$10000001) (bbin if else is_greater_str greater") is_greater_1_str both_are_equal_str "both are equal") both_are_equal_str_1 is_greater_str_1 (((x (is_greater_str_1 (both_are_equal_str_1 conditional branch decision compare 6 less_str "x < y") more_str >= (less_str >=) (more_str fac input_prompt (input_prompt (fac input 18 result_prompt (result_prompt enter multiple insertion (((j (((y ((j one) insert header "factorial(5) = while lcm orig_a orig_b (orig_a least kgv leap year fourhundred 400) mod4 mod100 mod400 leap_str "leap year") not_leap_str (year ((((mod4 (mod100 &) (leap_str (((mod400 (not_leap_str
schaltjahr menu res 5-quit") "choice: "a: "b: error_div_by_zero_str div by zero") error_div_by_zero_str_1 (e : 17) median (mid multiplication times product prod (prod
(str_str_1 1x1
einmaleins p 512 row 32 ns 2 sp empty ns_len (empty :string_copy (p :string_int64tostring (ns :string_cat (sp (row analyzer abs_res num_int temp_i abs_str
"absolute: odd_even_str
"odd/even: pos_neg_str "positive/negative: "even") "odd") negative_str "negative") positive_str "positive") absolute positive negative words tens tens_part ones_part
unit_label "ones:
tens_label "tens: worte
palindrome rev palindrome_str "palindrome") not_palindrome_str palindrome") not_palindrome_str_1 palindrome_str_1 (rev (palindrome_str_1 (not_palindrome_str_1 ch_i ch_j (enter_a_string_str (len :string_mid_to_byte (ch_i stpopb) (ch_j (((ch_i (palindrome_str (not_palindrome_str xmax ymax
random_max char_len random_i randi headstr abc def ghi jkl mno pqr stu vwx yz .") spacestr charstr? "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789 chstr (charstr (char_len
((char_len -) (headstr (spacestr (((random_i perfect perfect_str "perfect not_str perfect") (perfect_str (not_str vollkommene pointer const100 px pos_str neg_str zero_str "zero") (pos_str (neg_str (zero_str cube raise exponentiation prime i_sq is_prime prime_str notprime_str factorize m factors factorization max_default j_sq
mod_result max_val (two (((j_sq (((mod_result (((is_prime primes
primzahlen modtmp (((num (((modtmp (:break (:break) (is_prime zahlen start end up bis var pyramid rows: pyramide pattern queue head tail data structure enqueue dequeue quiz score ans q1 2+2? q2 3*3? q3 10-7? score_str "score: (q1 (ans == (score (q2 (q3
(score_str questions rand_max randval prompt_count "count:
prompt_max
random_str "random: (prompt_count (prompt_max (rand_max (randval rnd (rnd zufallszahl walk steps pos label
"position: (three (pos (label
simulation file #include <file-def.l1h> handle filename "data.bin")
:file_init (file_mode_read filenameaddr
:file_open (handle :file_get_int64 :file_close input_numberstr "number? (input_numberstr :string_mid (ch :string_to_string umkehren rock paper scissors comp "1-rock 2-paper 3-scissors: rock_str "rock") paper_str "paper") scissors_str "scissors") win") lose_str lose") tie_str "tie") (comp schere stein papier rps selection min_idx select argc argstr "args: shell args shell_arg arg_str arguments:") (args :shell_args (arg_str (:loop) :get_shell_arg
(shell_arg (:loop command line arguments repl runlen inputmax 255) inputlen rightpart promptstr "l1vm-sh $ runstr "run")
runl1vmstr "l1vm") runshortstr "!") inputstr bufstr runshellstr :process_init
(promptstr (inputmax (inputstr (inputlen (((inputlen :string_left (bufstr :string_compare (((ret
((inputlen :string_right (runshellstr
:run_shell (bu execution l1vm sh (bufst shuffle rj
numbers:") fisher yates randomize (low (((sq quadratwurzel stack push pop sq_sum one_hundred (mean (((diff (diff (sq_sum (((sq_sum va 97) ve 101) vi 105) vo 111) vu 117) 65) 69) 73) 79) 85) cons len_str "length:
vowels_str "vowels: cons_str "consonants: (vowels
consonants (en length concatenate strings "brackets") str_a str_b cmp eq_str "strings ne_str differ") enter_first_string_str enter_second_string_str enter_first_string_str_1 enter_second_string_str_1 (enter_first_string_str_1 (enter_second_string_str_1 (str_a (cmp (eq_str (ne_str vergleich concat (greeting text "the quick brown fox") substr "brown") (text :string_search substring laenge split delim ",") srcstr "apple,banana,cherry") (// string_split demo) (srcstr :string_split delimited lowercase 'z' :string_setchar lower kleinbuchstaben z48 48) enter_a_number_as_string_str as (enter_a_number_as_string_str parse int uppercase upper grossbuchstaben struct person.name "jane") person.city "new york")
person.age 30) (person.name (person.city (person.age minus
difference quersumme switch "case matched")
case_1_str
case_2_str 2")
case_3_str 3") default_str
"default") case_1_str_1 case_2_str_1 case_3_str_1 default_str_1 case c23 c42 str23 "y 23") str42 42") (switch) ?) (str23 (break) (str42 (switchend) convert (celsius clabel "c: flabel f: t "timestamp: (:time (t hour sec epchms epochstr "ms after epoch: colon ":") (hour :get_time :pull_int64_var (min (sec (((hour (colon (((min (((sec (epochstr (epchms :epochms current timer thousand elapsed working_str "working...") ms_str ms") (:start_timer (working_str (elapsed :stop_timer (ms_str benchmark measure stopwatch type dnum unit "1-km_mi 2-mi_km 3-kg_lb 4-lb_kg 5-cm_in 6-in_cm 7-quit") c_km_mi 0.621) c_mi_km 1.609) c_kg_lb 2.204) c_lb_kg 0.454) c_cm_in 0.394) c_in_cm 2.540) (prompt_val ! km miles ( kg pounds cm inches prompt (prompt weighted items weights prefix "weighted (weights 1,2,3,4): with (file_mode_write :file_put_int64 99-bottles-of-beer bottles 99) wall_bottlesstr beer on the wall,") wall_one_bottlesstr bottle bottlestr beer.") one_bottlestr takestr "take down, pass it around,")
no_bottles wall.")
(((bottles (4 intr0) (6 (7 ((bottles array-min-max
<intr.l1h>
<vars.l1h> ind xd 23.23) 23 45 zero) array_new maxarray maxind parray
parray_new averaged searchnum minstr maxstr
sortincstr "sorted increasing:")
sortdecstr decreasing:")
averagestr array_copystr
"array_new copy array:") array_clearstr
cleared:") array_searchstr "array search: position: byte-to-binary 134) maxbit bitset) bitstr "bit: bitsetstr
bitzerostr numstr "number: print_s (numstr) print_i (num) print_n (bitstr) (i) :check_bitset (bitset (((bitset (bitsetstr) (bitzerostr) (reset-reg) ((i +) (255 (check_bitset func) #var ~ @check_bitset one~ bit~ shift~ bitset~ num~ (bit~ (num~ ((one~ <<) ((num~ (bitset~ <intr-func.l1h> main fac~
:factorial (fac~ stpop)
(factorial zero~ n~ i~ f~ (n~ (((i~ (i~ stpush) (return) fizz-buzz width 800) 600) width_m 799) height_m 599)
joy_x_axis
joy_y_axis joy_x2_axis joy_y2_axis joy_axis_max joy_buttons_max joy_namestr joy_name_len
joy_button joy_button_state) delay 5000) frame_delay joy_x_axis_center joy_y_axis_center joy_x2_axis_center
joy_offset 3000) joy_y2_axis_center 32767) joy_x_min -32768) joy_x_max
joy_y2_min int6 if-3 ten") => one_str ", > one") (optimize-if) (6, less_str, 0, ((((x >)(x &&) one_str, more_str, (7, (255, math-circle diam circ menu_diamstr "1: diameter circle") menu_circstr "2: circumference menu_quitstr "3: quit")
menu_chstr "? diamstr
"diameter: circstr "circumference: m_pi 3.14159265358979323846) (menu_diamstr) (menu_circstr) (menu_quitstr) (menu_chstr) input_i (input) (((input exit (zero) (:calc_diam (loadreg) (:calc_circ
(calc_diam (zerod d math-gcd ret~ a~ b~ gcd_ret (a~ :gcd (gcd_ret) (gcd mod~ (b~ (((b~ ((a~ %) <math-const.l1h>
100000000) numd ((((num ||)
(:show_num (:not_prime (numd :math_double2int (max ((num a_range_min a_range_max overflow (overflow range_int (a, a_range_min, a_range_max)
shell-args
arguments: (argstr (((args <misc-macros.l1h> 123456789000000012) 3.1415) a_st b_st c_st byte_errstr "error reading stack!") int64_errstr double_errstr no_errstr "all checks passed ok!") err show_st_p stpushb)
stack_type (type) pull_int64_var (c_st (b_st (a_st (byte_errstr) (a_st) (int64_errstr) (b_st) (((c reqstr "numbers? sumstr "sum: hintstr "type separated spaces, all will be shown") str_len 4097 arraystr
array_size array_strlen separstr numindex
num_strlen inputstr_len (hintstr) (reqstr) input_s (str_len, inputstr) (inputstr_len (((inputstr_len 23_str 42_str 23_const 42_const (23_str (42_str hellostr epchmstm (hellostr (epchmstm