<commit_before>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; math.rkt: some extra math routines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(module math frtime/frtime-lang-only
  (provide e 
	  pi 
	  sqr
	  sgn conjugate
	  sinh cosh)

  (define (sqr z) (* z z))
  
  ;; circular constants and aliases
  (define e (exp 1.0)) 
  (define pi (atan 0 -1))
  
  ;; sgn function 
  (define sgn
    (lambda (x)
      (if (exact? x)
	  (cond
	   ((< x 0) -1)
	   ((> x 0)  1)
	   (else 0))
	  (cond
	   ((< x 0.0) -1.0)
	   ((> x 0.0)  1.0)
	   (else 0.0)))))
  
  ;; complex conjugate
  (define conjugate
    (lambda (z)
      (make-rectangular 
       (real-part z)
       (- (imag-part z)))))
  
  ;; real hyperbolic functions
  (define sinh 
    (lambda (x)
      (/
       (- (exp x) (exp (- x)))
       2.0)))
  
  (define cosh
    (lambda (x)
      (/
       (+ (exp x) (exp (- x)))
       2.0))))<commit_msg>Use lifted Racket math definitions<commit_after>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; math.rkt: some extra math routines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(module math frtime/frtime-lang-only
  (require (only-in racket/math pi sqr sgn conjugate sinh cosh))
  
  (provide (lifted
	  sqr
	  sgn conjugate
	  sinh cosh))
  
  (provide pi e)
  
  ;; circular constants and aliases
  (define e (exp 1.0)))
  
{'fraction_non_alphanumeric': 0.2846820809248555, 'fraction_numerical': 0.018063583815028903, 'mean_word_length': 2.5331632653061225, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5978192', 'n_tokens_mistral': 615, 'n_tokens_neox': 502, 'n_words': 133}