seq-compiler 5.4.1

Compiler for the Seq programming language
Documentation 
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

# Float Math Standard Library for Seq
#
# Common mathematical operations for floating-point arithmetic.
#
# ## Usage
#
#   include std:fmath
#
#   : main ( -- Int )
#     -5.0 f.abs float->string io.write-line
#     0
#   ;
#
# ## Available Functions
#
# - f.abs: ( Float -- Float ) - Absolute value
# - f.max: ( Float Float -- Float ) - Maximum of two values
# - f.min: ( Float Float -- Float ) - Minimum of two values
# - f.sign: ( Float -- Float ) - Sign function: returns -1.0, 0.0, or 1.0
# - f.square: ( Float -- Float ) - Square a number
# - f.clamp: ( Float Float Float -- Float ) - Clamp value between min and max
# - f.neg: ( Float -- Float ) - Negate a float
#
# ## Notes
#
# - All operations use IEEE 754 double precision (f64)
# - NaN and Infinity follow IEEE 754 semantics
#
# ## Examples
#
#   -3.14 f.abs        # Returns 3.14
#   2.5 3.7 f.max      # Returns 3.7
#   1.5 f.square       # Returns 2.25
#   15.0 0.0 10.0 f.clamp  # Returns 10.0 (clamped to max)
#

# Absolute value for floats
: f.abs ( Float -- Float )
  dup dup 0.0 f.< if
    nip 0.0 swap f.subtract
  else
    drop
  then
;

# Maximum of two float values
: f.max ( Float Float -- Float )
  2dup f.> if
    drop
  else
    nip
  then
;

# Minimum of two float values
: f.min ( Float Float -- Float )
  2dup f.< if
    drop
  else
    nip
  then
;

# Sign function: returns -1.0, 0.0, or 1.0
: f.sign ( Float -- Float )
  dup 0.0 f.= if
    drop 0.0
  else
    dup 0.0 f.< if
      drop -1.0
    else
      drop 1.0
    then
  then
;

# Square a float
: f.square ( Float -- Float )
  dup f.multiply
;

# Negate a float
: f.neg ( Float -- Float )
  0.0 swap f.subtract
;

# Clamp value between min and max
# Stack: ( value min max -- clamped )
# Returns: min if value < min, max if value > max, else value
: f.clamp ( Float Float Float -- Float )
  # Stack: value min max
  rot rot
  # Stack: max value min
  2dup f.< if
    # value < min, return min
    nip nip
  else
    # value >= min
    drop
    # Stack: max value
    2dup f.> if
      # value > max, return max
      nip
    else
      # min <= value <= max, return value
      drop
    then
  then
;