Alexander Galanin пишет:
On Fri, 04 Dec 2009 17:33:22 +0300 San_Sanych <ssanych@gmail.com> wrote:#! /usr/bin/tclsh while (1) {puts [expr [gets stdin]]}while {[ gets stdin e ] >= 0} { puts [ expr $e ] } Но такой калькулятор тоже плох, потому что у него 2^2 == 0, а 5/3 == 1.
увы только так
./calc.tcl
5.0/3
1.6666666666666667
2**2
4
--
Александр Вайтехович
www: http://sanych.nnov.ru
jabber: sanych{a}sanych.nnov.ru