wolfram-suite

Wed May 07 10:50:40+0200 2025

This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License

Table of contents

Introduction
test/simple: pass

Tests summary

scheme code

((ran 1) (failed 0))

1. Introduction

mathematica code

ArrayPlot[CellularAutomaton[30, {{1}, 0}, 50]]

2. `test/simple`: pass

The simple expression $x + (x + x) + x$ evaluates to $4 x$ . Moreover, the integer $847932875$ admits the factorization $(\begin{array}{c} 5 & 3 \\ 47 & 1 \\ 101 & 1 \\ 1429 & 1 \end{array})$ . Finally, we show the distribution of the sizes of factorizations of the first 100 numbers:

x - \frac{x^{3}}{6} + \frac{x^{5}}{120} - \frac{x^{7}}{5040} + \frac{x^{9}}{362880} + O (x^{11})

scheme code

(define (test/simple _)
  (define expr '(Plus x (Plus x x) x))
  (⊦= '(Times 4 x) (W expr))
  (⊦= '(List (List 5 3) (List 47 1) (List 101 1) (List 1429 1))
        (W '(FactorInteger 847932875)))
  (⊦= 3.91287092917528 (W '(ToExpression "3+4/Sqrt[19.2]"))))