@fraczak/k 6.1.1 → 6.1.2

package/DOCS/dependency-graph.md

@@ -0,0 +1,144 @@
+# Project Dependency Graph
+
+_Auto-generated by scripts/generate-dependency-graph.mjs._
+
+```mermaid
+graph TD
+    classDef default fill:#fff,stroke:#333,stroke-width:2px,color:#000;
+
+    Graph_mjs["Graph.mjs (1.9 KB)<br/>██"]
+    TypeGraph_mjs["TypeGraph.mjs (1.1 KB)<br/>█"]
+    TypePatternGraph_mjs["TypePatternGraph.mjs (8.0 KB)<br/>████████"]
+    Value_mjs["Value.mjs (5.4 KB)<br/>█████"]
+    augmentation_mjs["augmentation.mjs (6.9 KB)<br/>███████"]
+    codecs_example_pipeline_mjs["codecs/example-pipeline.mjs (5.1 KB)<br/>█████"]
+    codecs_ieee_mjs["codecs/ieee.mjs (4.3 KB)<br/>████"]
+    codecs_int_mjs["codecs/int.mjs (3.5 KB)<br/>████"]
+    codecs_json_codec_mjs["codecs/json-codec.mjs (6.2 KB)<br/>██████"]
+    codecs_json_mjs["codecs/json.mjs (1.5 KB)<br/>██"]
+    codecs_k_parse_mjs["codecs/k-parse.mjs (3.0 KB)<br/>███"]
+    codecs_k_print_mjs["codecs/k-print.mjs (1.5 KB)<br/>██"]
+    codecs_runtime_codec_mjs["codecs/runtime/codec.mjs (25.7 KB)<br/>████████████████████"]
+    codecs_runtime_ieee_pattern_mjs["codecs/runtime/ieee-pattern.mjs (1.1 KB)<br/>█"]
+    codecs_runtime_pattern_json_mjs["codecs/runtime/pattern-json.mjs (3.5 KB)<br/>███"]
+    codecs_runtime_prefix_codec_mjs["codecs/runtime/prefix-codec.mjs (13.7 KB)<br/>██████████████"]
+    codecs_runtime_show_value_mjs["codecs/runtime/show-value.mjs (2.1 KB)<br/>██"]
+    codecs_runtime_test_codec_mjs["codecs/runtime/test-codec.mjs (3.0 KB)<br/>███"]
+    codecs_runtime_typeFromValue_mjs["codecs/runtime/typeFromValue.mjs (0.9 KB)<br/>█"]
+    codecs_runtime_unicode_string_mjs["codecs/runtime/unicode-string.mjs (7.5 KB)<br/>████████"]
+    codecs_show_mjs["codecs/show.mjs (1.5 KB)<br/>██"]
+    codecs_string_codec_mjs["codecs/string-codec.mjs (4.5 KB)<br/>█████"]
+    codecs_unit_mjs["codecs/unit.mjs (1.6 KB)<br/>██"]
+    codecs_utf16_mjs["codecs/utf16.mjs (2.2 KB)<br/>██"]
+    codecs_utf8_mjs["codecs/utf8.mjs (1.3 KB)<br/>█"]
+    codes_mjs["codes.mjs (9.9 KB)<br/>██████████"]
+    compiler_mjs["compiler.mjs (3.9 KB)<br/>████"]
+    convergence_mjs["convergence.mjs (6.5 KB)<br/>██████"]
+    export_mjs["export.mjs (5.2 KB)<br/>█████"]
+    hash_mjs["hash.mjs (1.1 KB)<br/>█"]
+    index_mjs["index.mjs (1.9 KB)<br/>██"]
+    k_mjs["k.mjs (2.7 KB)<br/>███"]
+    object_mjs["object.mjs (26.3 KB)<br/>████████████████████"]
+    pretty_mjs["pretty.mjs (5.6 KB)<br/>██████"]
+    repl_mjs["repl.mjs (29.3 KB)<br/>████████████████████"]
+    run_mjs["run.mjs (14.4 KB)<br/>██████████████"]
+    symbol_table_mjs["symbol-table.mjs (2.7 KB)<br/>███"]
+    typing_mjs["typing.mjs (4.9 KB)<br/>█████"]
+    unification_mjs["unification.mjs (5.4 KB)<br/>█████"]
+    valueIO_mjs["valueIO.mjs (1.8 KB)<br/>██"]
+
+    TypePatternGraph_mjs --> Graph_mjs
+    TypePatternGraph_mjs --> unification_mjs
+    TypePatternGraph_mjs --> TypeGraph_mjs
+    augmentation_mjs --> codes_mjs
+    codecs_example_pipeline_mjs --> codecs_runtime_codec_mjs
+    codecs_example_pipeline_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_example_pipeline_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_example_pipeline_mjs --> Value_mjs
+    codecs_example_pipeline_mjs --> hash_mjs
+    codecs_ieee_mjs --> Value_mjs
+    codecs_ieee_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_ieee_mjs --> codecs_runtime_ieee_pattern_mjs
+    codecs_int_mjs --> Value_mjs
+    codecs_int_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_json_codec_mjs --> Value_mjs
+    codecs_json_codec_mjs --> codecs_string_codec_mjs
+    codecs_json_codec_mjs --> codecs_runtime_ieee_pattern_mjs
+    codecs_json_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_json_mjs --> codecs_json_codec_mjs
+    codecs_k_parse_mjs --> index_mjs
+    codecs_k_parse_mjs --> valueIO_mjs
+    codecs_k_parse_mjs --> codecs_runtime_codec_mjs
+    codecs_k_parse_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_k_parse_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_k_print_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_runtime_codec_mjs --> Value_mjs
+    codecs_runtime_codec_mjs --> TypePatternGraph_mjs
+    codecs_runtime_codec_mjs --> typing_mjs
+    codecs_runtime_codec_mjs --> codes_mjs
+    codecs_runtime_codec_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_runtime_ieee_pattern_mjs --> codes_mjs
+    codecs_runtime_ieee_pattern_mjs --> codecs_runtime_codec_mjs
+    codecs_runtime_ieee_pattern_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_runtime_prefix_codec_mjs --> Value_mjs
+    codecs_runtime_prefix_codec_mjs --> codecs_runtime_codec_mjs
+    codecs_runtime_prefix_codec_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_runtime_prefix_codec_mjs --> codecs_runtime_unicode_string_mjs
+    codecs_runtime_show_value_mjs --> Value_mjs
+    codecs_runtime_test_codec_mjs --> codecs_runtime_codec_mjs
+    codecs_runtime_test_codec_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_runtime_test_codec_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_runtime_test_codec_mjs --> Value_mjs
+    codecs_runtime_test_codec_mjs --> hash_mjs
+    codecs_runtime_typeFromValue_mjs --> Value_mjs
+    codecs_runtime_unicode_string_mjs --> Value_mjs
+    codecs_show_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_show_mjs --> codecs_runtime_show_value_mjs
+    codecs_string_codec_mjs --> codecs_runtime_codec_mjs
+    codecs_string_codec_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_string_codec_mjs --> codecs_runtime_pattern_json_mjs
+    codecs_string_codec_mjs --> codecs_runtime_unicode_string_mjs
+    codecs_unit_mjs --> Value_mjs
+    codecs_unit_mjs --> codecs_runtime_prefix_codec_mjs
+    codecs_utf16_mjs --> codecs_string_codec_mjs
+    codecs_utf8_mjs --> codecs_string_codec_mjs
+    codes_mjs --> hash_mjs
+    compiler_mjs --> hash_mjs
+    compiler_mjs --> TypePatternGraph_mjs
+    compiler_mjs --> Graph_mjs
+    compiler_mjs --> codes_mjs
+    compiler_mjs --> augmentation_mjs
+    compiler_mjs --> export_mjs
+    compiler_mjs --> convergence_mjs
+    convergence_mjs --> pretty_mjs
+    convergence_mjs --> typing_mjs
+    export_mjs --> hash_mjs
+    export_mjs --> pretty_mjs
+    index_mjs --> Value_mjs
+    index_mjs --> valueIO_mjs
+    index_mjs --> compiler_mjs
+    index_mjs --> run_mjs
+    index_mjs --> codes_mjs
+    k_mjs --> index_mjs
+    k_mjs --> codecs_runtime_prefix_codec_mjs
+    k_mjs --> object_mjs
+    object_mjs --> index_mjs
+    object_mjs --> run_mjs
+    object_mjs --> codes_mjs
+    object_mjs --> TypePatternGraph_mjs
+    object_mjs --> pretty_mjs
+    pretty_mjs --> TypePatternGraph_mjs
+    repl_mjs --> index_mjs
+    repl_mjs --> run_mjs
+    repl_mjs --> codes_mjs
+    repl_mjs --> Value_mjs
+    repl_mjs --> pretty_mjs
+    repl_mjs --> object_mjs
+    repl_mjs --> codecs_runtime_show_value_mjs
+    run_mjs --> Value_mjs
+    run_mjs --> codecs_runtime_codec_mjs
+    run_mjs --> codecs_runtime_pattern_json_mjs
+    symbol_table_mjs --> hash_mjs
+    typing_mjs --> TypePatternGraph_mjs
+    valueIO_mjs --> Value_mjs
+```

package/NAT.k~

@@ -0,0 +1,452 @@
+-- Examples for defining arithmetic functions natively
+$ yes_no = < {} yes, {} no >;
+swap_yes_no = < /yes |no, /no |yes > $yes_no;
+yes = {}|yes $yes_no;
+no = yes swap_yes_no;
+
+list? = ?< {} nil, {X car, Y cdr} cons > = Y;
+nil = {}|nil list?;
+singleton = {() car, nil cdr} |cons list?;
+cons = {.car car, .cdr cdr} |cons list?;
+nil? = list? / nil nil;
+car = list? /cons .car;
+cdr = list? /cons .cdr;
+
+$ bits = < {} _, bits 0, bits 1 >;
+
+0b = {} | _;
+1_ = | 1;
+0_ = | 0;
+
+0 = 0b 0_;
+succ = {inv x, 0b y} _inc;
+1 = 0 succ;
+2 = 1 succ;
+3 = 2 succ;
+4 = 3 succ;
+5 = 4 succ;
+6 = 5 succ;
+7 = 6 succ;
+8 = 7 succ;
+9 = 8 succ;
+10 = 9 succ;
+11 = 10 succ;
+12 = 11 succ;
+
+empty = $bits < /_ yes, no >;
+empty? = {empty /yes if, () then} .then;
+
+concat = ${bits x, bits y} {.x inv x, .y y} concat_; 
+concat_ = ${bits x, bits y} 
+  < 
+    {.x /0 x, .y 0_ y} concat_, 
+    {.x /1 x, .y 1_ y} concat_, 
+    .y 
+  >;
+inv = {()x, 0b r} _inv; 
+_inv = ${bits x, bits r} < {.x /0 x, .r 0_ r} _inv, {.x /1 x, .r 1_ r} _inv, .r >;
+
+inOrder = ${bits x, bits y} {.x inv x, .y inv y, yes inOrder} inOrder_;
+inOrder_ = ${bits x, bits y, yes_no inOrder} 
+  < 
+    {.x /0 x, .y /0 y, .inOrder inOrder} inOrder_, 
+    {.x /1 x, .y /1 y, .inOrder inOrder} inOrder_,
+    {.x /0 x, .y /1 y, .inOrder inOrder} inOrder_, 
+    {.x /1 y, .y /0 x, .inOrder swap_yes_no inOrder} inOrder_, 
+    {.x </0,/1> if, .inOrder swap_yes_no then} .then, 
+    .inOrder
+  >;
+
+GT = {inOrder /no if, () then} . then;
+
+EQ = GT {.x y, .y x} GT;
+
+toBitList = {inv x, nil r} _toBitList; 
+_toBitList = < 
+  {.x empty? if, .r then }.then, 
+  {.x /0 x, {0 car, .r cdr} cons r} _toBitList, 
+  {.x /1 x, {1 car, .r cdr} cons r} _toBitList 
+>;
+fromBitList =
+< 
+  cdr <
+    {car /0 if, cdr fromBitList 0_ then} .then, 
+    {car /1 if, cdr fromBitList 1_ then} .then
+  >, 
+  0b
+> $bits;
+
+--------------------------------------
+$ int = < bits '+', bits '-' >;
+
+remove_leading_zeros = <
+  /0 remove_leading_zeros, 
+  ()
+>;
+nat = remove_leading_zeros <empty? 0, ()>;
+int = nat | '+' $int;
+abs = $int </'+',/'-'>;
+
+pos? = $int {dec /'+' if, () then} .then;
+neg? = $int {/'-' if, () then} .then; 
+zero_int? = $int {/'+' /0 empty? if, () then} .then;
+minus_one? = $int {/'-' /1 empty? if, () then} .then;
+
+inc = $int <
+  /'+' {inv x, 0b y} _inc |'+',
+  minus_one? 0 int,
+  /'-' {inv x, 0b y} _dec |'-'
+>;
+
+_inc = ${bits x, bits y} <
+    {.x /0 x, .y 1_ y} concat_, 
+    {.x /1 x, .y 0_ y} _inc,
+    .y 1_
+>; 
+
+dec = $int <
+  zero_int? 1 |'-',
+  /'+' {inv x, 0b y} _dec |'+',
+  /'-' {inv x, 0b y} _inc |'-'
+> $int;
+
+_dec = ?{X x, X y, ...} <
+    {.x /1 x, .y 0_ y} concat_, 
+    {.x /0 x, .y 1_ y} _dec
+> ?X;
+
+$carry = <{} 0, {} 1>;
+c0 = {}|0 $carry;
+c1 = {}|1 $carry;
+
+plus = ${int x, int y}
+< 
+  {.x/'+' inv x, .y/'+' inv y, c0 c } _plus inv nat | '+',
+  {.x/'-' inv x, .y/'-' inv y, c0 c } _plus inv nat | '-',
+  {.y/'-' x, .x/'+' y} GT {.x inv x, .y inv y, c0 c} _minus inv nat | '-',
+  {.x/'+' inv x, .y/'-' inv y, c0 c} _minus inv nat |'+',
+  {.x/'-' x, .y/'+' y} GT {.x inv x, .y inv y, c0 c} _minus inv nat | '-',
+  {.y/'+' inv x, .x/'-' inv y, c0 c} _minus inv nat | '+'
+> 
+$int;
+
+swap_sign = <
+  zero_int?,
+  /'+' | '-',
+  /'-' | '+'
+>;
+
+minus = ${int x, int y}
+  {.x x, .y swap_sign y} plus;
+
+_plus =
+  -- least significant bit first addition with carry
+  ${bits x, bits y, carry c}
+  <
+    {.x empty? if, .y empty? and, <.c/0 0, 1> then} .then,
+    {.x empty? if, .c/0 and, .y then} .then,
+
+    {.x y, .y empty? x, .c c} _plus,
+    {<.c/0 0, 1> x, 
+              .y y, .x empty? c0 c} _plus,
+
+    {.x /0 x, .y /0 y, .c/0 c0 c} _plus 0_,
+    {.x /0 x, .y /0 y, .c/1 c0 c} _plus 1_,
+
+    {.x /0 x, .y /1 y, .c/0 c0 c} _plus 1_,
+    {.x /0 x, .y /1 y, .c/1 c1 c} _plus 0_,
+    {.x /1 x, .y /0 y, .c/0 c0 c} _plus 1_,
+    {.x /1 x, .y /0 y, .c/1 c1 c} _plus 0_,
+
+    {.x /1 x, .y /1 y, .c/0 c1 c} _plus 0_,
+    {.x /1 x, .y /1 y, .c/1 c1 c} _plus 1_
+  >
+;
+
+_minus =
+  -- least significat bit first substraction with carry
+  ${bits x, bits y, carry c}
+  <
+    {.x then, .y empty? if, .c/0 and} .then,
+    {.x/1 then, .y empty? if, .c/1 and} .then 0_,
+    {.x/0 x, .y empty? y, .c/1 c1 c} _minus 1_,
+    {.x/0 x, .y/0   y, .c/0 c0 c} _minus 0_,
+    {.x/0 x, .y/0   y, .c/1 c1 c} _minus 1_,  
+    {.x/0 x, .y/1   y, .c/0 c1 c} _minus 1_,
+    {.x/0 x, .y/1   y, .c/1 c1 c} _minus 0_,
+    {.x/1 x, .y/0   y, .c/0 c0 c} _minus 1_,
+    {.x/1 x, .y/0   y, .c/1 c0 c} _minus 0_,
+    {.x/1 x, .y/1   y, .c/0 c0 c} _minus 0_,
+    {.x/1 x, .y/1   y, .c/1 c1 c} _minus 1_
+  >
+;
+
+$ sign = < {} '+' , {} '-' >;
+sign_plus = {}|'+' $sign;
+sign_minus = {}|'-' $sign;
+get_sign = $int </'+' sign_plus, /'-' sign_minus>;
+
+times = ${int x, int y}
+  {
+    <
+      {.x/'+' if, .y /'+' and} sign_plus, 
+      {.x/'-' if, .y /'-' and} sign_plus, 
+      sign_minus
+    > sign,
+    {
+      0 result,
+      .x abs inv _x,
+      .y abs y
+    } _times result
+  }
+  <
+    {.sign/'+' if, .result inv int then} .then,
+    {.sign/'-' if, .result inv int swap_sign then} .then 
+  >
+;
+
+_times =
+  ${bits result, bits _x, bits y}
+  <
+    { .y empty? if, .result then } .then,
+    { 
+      .result 0_ result, 
+      ._x _x, 
+      .y /0 y
+    } _times,
+    { 
+      {._x x, .result 0_ y, c0 c } _plus result, 
+      ._x _x, 
+      .y /1 y 
+    } _times
+  >
+;
+
+
+mod =
+  ${bits x, bits y}
+  _log!
+  < 
+    -- if y > x then (x mod y) = x 
+    {.y x, .x y} GT .y,
+    -- else, i.e.
+    -- if x >= y then (x mod y) = ((x-y mod 2y) mod y)
+    { 
+      {  
+        {.x int x, .y int y} minus /"+" x, 
+        .y inv 0_ inv y
+      } mod x, 
+      .y y 
+    } mod
+  >
+; 
+
+
+// gratest common divisor
+gcd = ${bits x, bits y}
+  <
+    {.y x, .x y} GT, 
+    ()
+  > _gcd
+;
+
+_gcd = <
+  { .y /0 if, .x then } .then,
+  { .y x, mod y } _gcd
+>;
+
+
+
+// div
+
+log2_floor =
+  ${bits x, bits step} 
+-- finds the largest k, such that 'step * 2^k <= x',
+-- returns k1_, i.e., 0 if x < step, and k1_ otherwise.
+  {.x x, .step step, 0 log} log2_floor_;
+
+log2_floor_ = <
+  {{.step x,.x y} GT if, .log then} .then,
+  {.x x, {.step x,0 y} GT {.x x,2 y} {.x int x, .y int y} times abs step, .log int inc abs log} log2_floor_
+>;
+
+
+x_times_2_to_k =
+  ${bits x, bits k}
+  {.x inv _x, .k int k} _x_times_2_to_the_power_of_k inv
+;
+
+_x_times_2_to_the_power_of_k = <
+  {.k zero_int? if, ._x then} .then,
+  {._x 0_ _x, .k dec k} _x_times_2_to_the_power_of_k
+>
+;
+ 
+div = 
+  ${int x, int y} 
+  // remember sign
+  {
+    <
+      { .x/'+' if, .y get_sign then } .then,
+      { .x/'-' if, .y  swap_sign get_sign then } .then
+    > sign,
+    {.x abs x, .y abs step, 0 int res} _div res_wo_sign
+  }
+  < 
+    {.sign/'+' if, {.res_wo_sign.div div, .res_wo_sign.rem rem} then} .then,
+    { .res_wo_sign.div swap_sign div, .res_wo_sign.rem rem }
+  > 
+  ;
+
+_div =
+  {
+    .x x,
+    .step step,
+    .res res,
+    {.x x, .step step} log2_floor log
+  }
+  < 
+    { .log int zero_int? if, {.res div, .x rem} then } .then,
+    { 
+      {1 x, .log int dec abs k} x_times_2_to_k factor,
+      () i
+    }
+    {
+      {.i.x int x, {.i.step int x, .factor int y} times y} minus abs x, 
+      .i.step step, 
+      {.i.res x, .factor int y} plus res
+    } _div
+  >;
+
+
+lcm = 
+  ${bits x, bits y}
+  {{.x int x, .y int y} times x, gcd int y} div .div abs
+;
+
+ factorial = <
+  zero_int? 1 int,
+  /"+" int {dec factorial x, () y} times
+>;
+
+fib_ =
+  <
+    { .n int dec /"+" n,
+      ."fib(n),fib(n.1)" {plus x, .x y} "fib(n),fib(n.1)"
+    } fib_,
+    ."fib(n),fib(n.1)"
+  >
+;
+
+fib = {$bits n, {1 int x, 0 int y} "fib(n),fib(n.1)"} fib_ .x;
+
+
+--------------------
+$ rat = { int n, int d };
+
+rat = ${bits n, bits d} {.n int n, .d int d } normalize_rat;
+
+normalize_rat =
+  $rat 
+  < 
+    { .d/"-" if, 
+      {
+        .n swap_sign n, 
+        .d swap_sign d
+      } then
+     } .then,
+    ()
+  >
+  {() x, {.n abs x,.d abs y} gcd int y}
+  {
+    {.x.n x,.y y} div .div n, 
+    {.x.d x,.y y} div .div d
+  }
+  $rat
+;
+
+
+plus_rat = 
+  ${rat x, rat y}
+  { 
+    .x x, 
+    .y y,
+    {.x.d abs x,.y.d abs y} lcm int lcm
+  }
+  { 
+    {
+      {.x.n x, {.lcm x, .x.d y} div .div y} times x,
+      {.y.n x, {.lcm x, .y.d y} div .div y} times y
+     } plus n, 
+    .lcm d
+  }
+  normalize_rat
+;
+
+
+times_rat = 
+  ${rat x, rat y}
+  { 
+    {.x.n x,.y.n y} times n, 
+    {.x.d x,.y.d y} times d
+  } 
+  normalize_rat;
+ 
+
+minus_rat = 
+  ${rat x, rat y}
+  {
+    .x x, 
+    .y {.n swap_sign n, .d d} y
+  } 
+  plus_rat;
+
+inverse_rat = 
+  $rat
+  { .d n, .n d }
+  normalize_rat
+;
+
+div_rat = 
+  ${rat x, rat y}
+  { .x x, .y inverse_rat y} times_rat
+;
+
+
+--------------------
+
+int_rat = 
+  $rat 
+  { .n n, .d d, {.n x,.d y} div div }
+  { .div.div int, {.div.rem int n, .d d} rat}
+  ${int int, rat rat}
+;
+
+/* 
+ratToString = 
+-- $rat
+[
+    .n toJSON, 
+    "/", 
+    .d toJSON, 
+    " = ",
+    normalize_rat
+    <
+      [.d,.n] GT [.1 toJSON ,"/", .0 toJSON] CONCAT,
+      {.n 0,[.d,1] EQ 1} [.0 toJSON] CONCAT,
+      int_rat [.int toJSON,"+",.rat.n toJSON,"/",.rat.d toJSON] CONCAT
+    >
+  ] CONCAT
+-- $@string
+;
+
+_rat! = $rat {
+  () carryOn, 
+  ratToString _log! drop
+ } .carryOn;
+
+
+
+*/
+
+times

package/UU/ta.k

@@ -0,0 +1 @@
+$bit