Skip to content

Commit

Permalink
Patch Tuesday - D
Browse files Browse the repository at this point in the history
  • Loading branch information
@Wodan58
Wodan58 committed Apr 16, 2024
1 parent 6853b30 commit 829d6b8
Show file tree
Hide file tree
Showing 17 changed files with 54 additions and 89 deletions.
7 changes: 2 additions & 5 deletions test2/cleave.joy
View file
Original file line number Diff line number Diff line change
@@ -1,11 +1,8 @@
(*
module : cleave.joy
version : 1.7
date : 03/21/24
version : 1.8
date : 04/15/24
*)
DEFINE sum == 0.0 [+] fold;
average == [dup sum] [size] cleave /.

[1.0 2.0 3.0] average 2 =.
[4.0 5.0 6.0] average 5 =.
[7.0 8.0 9.0] average 8 =.
7 changes: 2 additions & 5 deletions test2/compare.joy
View file
Original file line number Diff line number Diff line change
@@ -1,11 +1,8 @@
(*
module : compare.joy
version : 1.7
date : 03/21/24
version : 1.8
date : 04/15/24
*)
DEFINE sum == 0.0 [+] fold;
average == [sum] [size] cleave /.

[1 2 3] [1 2 3] compare 1 =. (* 1 means unequal in case of lists *)
[1 2 3] [1 2 3 4] compare 1 =.
[1 2 3] [4 5 6] compare 1 =.
Expand Down
7 changes: 2 additions & 5 deletions test2/eql.joy
View file
Original file line number Diff line number Diff line change
@@ -1,11 +1,8 @@
(*
module : eql.joy
version : 1.8
date : 04/11/24
version : 1.9
date : 04/15/24
*)
DEFINE sum == 0.0 [+] fold;
average == [sum] [size] cleave /.

(* sum and average are user defined functions *)
[sum] first [average] first = false =.

Expand Down
7 changes: 2 additions & 5 deletions test2/fold.joy
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,6 @@
(*
module : fold.joy
version : 1.5
date : 03/21/24
version : 1.6
date : 04/15/24
*)
DEFINE
sum == 0 [+] fold.

[1 2 3] sum 6 =.
6 changes: 3 additions & 3 deletions test2/fopen.joy
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
(*
module : fopen.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
"fopen.joy" "r" fopen dup put '\n putch file.
"fopen.joy" "r" fopen dup putln file.
"exist" "r" fopen.
6 changes: 3 additions & 3 deletions test2/fseek.joy
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
(*
module : fseek.joy
version : 1.5
date : 03/21/24
version : 1.6
date : 04/15/24
*)
"fseek.joy" "r" fopen 7 0 fseek not put '\n putch fgets 6 take "module" =.
"fseek.joy" "r" fopen 7 0 fseek not putln fgets 6 take "module" =.
13 changes: 2 additions & 11 deletions test2/gc2.joy
View file
Original file line number Diff line number Diff line change
@@ -1,17 +1,8 @@
(*
module : gc2.joy
version : 1.8
date : 03/21/24
version : 1.9
date : 04/15/24
*)
DEFINE
from-to == (* lo hi agg *)
[] cons [pop pop] swap concat
[over over >] swap
[ [dup succ] dip ]
[cons]
linrec;
from-to-list == [] from-to.

__memorymax
1 300 from-to-list pop gc
__memorymax <.
13 changes: 2 additions & 11 deletions test2/linrec.joy
View file
Original file line number Diff line number Diff line change
@@ -1,15 +1,6 @@
(*
module : linrec.joy
version : 1.9
date : 03/21/24
version : 1.10
date : 04/15/24
*)
DEFINE
from-to == (* lo hi agg *)
[] cons [pop pop] swap concat
[over over >] swap
[ [dup succ] dip ]
[cons]
linrec;
from-to-list == [] from-to.

1 10 from-to-list [1 2 3 4 5 6 7 8 9 10] equal.
27 changes: 13 additions & 14 deletions test2/put.joy
View file
Original file line number Diff line number Diff line change
@@ -1,18 +1,17 @@
(*
module : put.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
DEFINE last == dup rest null [first] [rest last] branch;
nl == '\n putch.
DEFINE last == dup rest null [first] [rest last] branch.

[pop] first put nl.
[last] first put nl.
true put nl.
'A put nl.
10 put nl.
{1 2 3} put nl.
"test" put nl.
[1 2 3] put nl.
3.14 put nl.
stdin put nl.
[pop] first putln.
[last] first putln.
true putln.
'A putln.
10 putln.
{1 2 3} putln.
"test" putln.
[1 2 3] putln.
3.14 putln.
stdin putln.
6 changes: 3 additions & 3 deletions test2/putch.joy
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
(*
module : putch.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
'A putch '\n putch.
'A putch.
6 changes: 3 additions & 3 deletions test2/putchars.joy
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
(*
module : putchars.joy
version : 1.5
date : 03/21/24
version : 1.6
date : 04/15/24
*)
"test" putchars '\n putch.
"test" putchars newline.

(* cast to bignum, that is printed without enclosing quotes, as desired *)
"Hello, World" 12 casting.
Expand Down
7 changes: 2 additions & 5 deletions test2/sametype.joy
View file
Original file line number Diff line number Diff line change
@@ -1,11 +1,8 @@
(*
module : sametype.joy
version : 1.6
date : 03/21/24
version : 1.7
date : 04/15/24
*)
DEFINE sum == 0.0 [+] fold;
average == [sum] [size] cleave /.

[sum] first [average] first sametype.
[pop] first [pop] first sametype.
[pop] first [dup] first sametype false =.
Expand Down
6 changes: 3 additions & 3 deletions test2/stderr.joy
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
(*
module : stderr.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
stderr dup put '\n putch file.
stderr dup putln file.
6 changes: 3 additions & 3 deletions test2/stdout.joy
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
(*
module : stdout.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
stdout dup put '\n putch file.
stdout dup putln file.
6 changes: 3 additions & 3 deletions test2/times.joy
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
(*
module : times.joy
version : 1.5
date : 03/21/24
version : 1.6
date : 04/15/24
*)
DEFINE fib == [1 0] dip [swap [+] unary] times popd.
"numlib" libload.

10 fib 55 =.

Expand Down
6 changes: 3 additions & 3 deletions test2/unary.joy
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
(*
module : unary.joy
version : 1.5
date : 03/21/24
version : 1.6
date : 04/15/24
*)
DEFINE fib == [1 0] dip [swap [+] unary] times popd.
"numlib" libload.

10 fib 55 =.

Expand Down
7 changes: 3 additions & 4 deletions test2/while.joy
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,8 @@
(*
module : while.joy
version : 1.4
date : 03/21/24
version : 1.5
date : 04/15/24
*)
DEFINE prime == 2 [[[dup * >] nullary [rem 0 >] dip and] nullary] [succ]
while dup * <.
"numlib" libload.

19 prime.

0 comments on commit 829d6b8

Please sign in to comment.