Hrayr Avagyan

// C++ Solver #include <iostream> #include <cmath> #include <string> void solve(double a, double b, double c) { std::cout << "Solving: " << a << "x^2 + " << b << "x + " << c << " = 0\n"; if (a == 0) { if (b == 0) { std::cout << (c == 0 ? "Infinite" : "No Solution") << "\n"; } else { std::cout << "Linear: " << -c/b << "\n"; } } else { double d = b*b - 4*a*c; if (d < 0) std::cout << "Complex Roots\n"; else if (d == 0) { std::cout << "One Root: " << -b/(2*a) << "\n"; } else { std::cout << "x1=" << (-b + sqrt(d))/(2*a) << ", x2=" << (-b - sqrt(d))/(2*a) << "\n"; } } }

// JavaScript Solver function solve(a, b, c) { console.log(`Solving ${a}x^2 + ${b}x + ${c} = 0`); if (a === 0) { if (b === 0) return (c === 0) ? "Infinite" : "No solution"; return "Linear: " + (-c/b); } let d = b*b - 4*a*c; if (d < 0) return "Complex Roots"; if (d === 0) return "One Root: " + (-b/(2*a)); let x1 = (-b + Math.sqrt(d)) / (2*a); let x2 = (-b - Math.sqrt(d)) / (2*a); return `Quadratic: ${x1}, ${x2}`; }

-- Lua Solver function solve(a, b, c) print(string.format("Solving %fx^2 + %fx + %f = 0", a, b, c)) if a == 0 then if b == 0 then if c == 0 then print("Infinite") else print("No solution") end else print("Linear: " .. (-c/b)) end else local d = b^2 - 4*a*c if d < 0 then print("Complex") elseif d == 0 then print("One Root: " .. -b/(2*a)) else print("x1=" .. (-b + math.sqrt(d))/(2*a)) print("x2=" .. (-b - math.sqrt(d))/(2*a)) end end end

;; Common Lisp Solver (defun solve (a b c) (format t "Solving ~ax^2 + ~ax + ~a = 0~%" a b c) (if (= a 0) (if (= b 0) (if (= c 0) (print "Infinite") (print "No solution")) (format t "Linear: ~a~%" (/ (- c) b))) (let ((d (- (* b b) (* 4 a c)))) (cond ((< d 0) (print "Complex")) ((= d 0) (format t "One Root: ~a~%" (/ (- b) (* 2 a)))) (t (format t "x1=~a, x2=~a~%" (/ (+ (- b) (sqrt d)) (* 2 a)) (/ (- (- b) (sqrt d)) (* 2 a))))))))

# Tcl Solver proc solve {a b c} { puts "Solving $a x^2 + $b x + $c = 0" if {$a == 0} { if {$b == 0} { puts "No solution" } else { puts "Linear: [expr {-1.0 * $c / $b}]" } } else { set d [expr {$b*$b - 4*$a*$c}] if {$d < 0} { puts "Complex" } else { puts "x1=[expr {(-$b + sqrt($d)) / (2*$a)}]" puts "x2=[expr {(-$b - sqrt($d)) / (2*$a)}]" } } }

"Smalltalk Solver" solve: a b: b c: c (a = 0) ifTrue: [ (b = 0) ifTrue: [ ^ 'No solution' ]. ^ 'Linear: ', (c negated / b) asString ]. d := (b squared) - (4 * a * c). (d < 0) ifTrue: [ ^ 'Complex' ]. x1 := (b negated + d sqrt) / (2 * a). x2 := (b negated - d sqrt) / (2 * a). ^ 'Quadratic: ', x1 asString, ', ', x2 asString

# demo.py - simple ASCII pixel plasma import math, time, os width = 80; height = 24; t = 0.0 shades = " .:-=+*#%@" try: while True: t += 0.1 os.system('clear') for y in range(height): line = "" for x in range(width): value = math.sin(x/5.0 + t) + math.sin(y/3.0 + t) color = int((value + 2) * 3) line += shades[color % len(shades)] print(line) time.sleep(0.1) except KeyboardInterrupt: pass

// demo.js - pixel plasma canvas const canvas = document.createElement('canvas'); canvas.width = 320; canvas.height = 200; document.body.appendChild(canvas); const ctx = canvas.getContext('2d'); const img = ctx.createImageData(canvas.width, canvas.height); let t = 0; function plasma() { t += 0.05; for (let y = 0; y < canvas.height; y++) { for (let x = 0; x < canvas.width; x++) { const c = Math.floor(128 + 127 * Math.sin(x/16+t) + 128 + 127*Math.sin(y/8+t)/2)%256; const i = (y * canvas.width + x) * 4; img.data[i] = c; img.data[i+1] = 255-c; img.data[i+2] = (c*2)%256; img.data[i+3] = 255; } } ctx.putImageData(img, 0, 0); requestAnimationFrame(plasma); } plasma();

-- demo.lua - simple ASCII pixel plasma local width = 80; local height = 24; local t = 0 local shades = " .:-=+*#%@" while true do t = t + 0.1 io.write("\27[2J\27[H") for y = 1, height do local line = "" for x = 1, width do local val = math.sin(x/5+t) + math.sin(y/3+t) local c = math.floor((val + 2) * 3) line = line .. string.sub(shades, (c % #shades)+1, (c % #shades)+1) end print(line) end os.execute("sleep 0.1") end

;; demo.lisp - plasma (defparameter *w* 80) (defparameter *h* 24) (defparameter *s* " .:-=+*#%@") (defun plasma () (let ((time 0.0)) (loop (setf time (+ time 0.1)) (format t "~c[2J~c[H" #\Esc #\Esc) (dotimes (y *h*) (dotimes (x *w*) (let* ((v (+ (sin (+ (/ x 5.0) time)) (sin (+ (/ y 3.0) time)))) (c (mod (floor (* (+ v 2) 3)) (length *s*)))) (write-char (char *s* c)))) (terpri)) (sleep 0.1)))) (plasma)

# demo.tcl - plasma set width 80; set height 24; set shades " .:-=+*#%@"; set t 0.0 while {1} { set t [expr {$t + 0.1}] puts -nonewline {\033[2J\033[H} for {set y 0} {$y < $height} {incr y} { set line "" for {set x 0} {$x < $width} {incr x} { set v [expr {sin($x/5.0 + $t) + sin($y/3.0 + $t)}] set c [expr {int((($v + 2) * 3)) % [string length $shades]}] append line [string index $shades $c] } puts $line } exec sleep 0.1 }