egghelp/eggheads community

!calc - calculator script

2003-10-11T07:33:31-04:00

Can anybody else solve that one, I am finding it very hard.

Looking at my code, it is near impossible. It would require that the proc physicaly be called twice.

The puthelp line is only called once, and isn't in a loop of any kind.

Your switch is missing a }, so the putserv is in fact inside the foreach loop ....if you get the code compiled by adding a } to the end (which normal people wouldn't do )

Code:

set x 0 set z +

Code:

if {[llength [split $arg]] == 1} { set arg [join [split $arg {}]] }

!calc 10+10 = 2 if you do that

Statistics: Posted by user — Sat Oct 11, 2003 7:33 am

!calc - calculator script

2003-10-11T06:51:16-04:00

Can anybody else solve that one, I am finding it very hard.

Looking at my code, it is near impossible. It would require that the proc physicaly be called twice.

The puthelp line is only called once, and isn't in a loop of any kind.

As for your outputs, 5+5 is invalid, due to the way to does syntax and security checks.

You have two options, you can try using the other script provided, or add this small bit of code below

Code:

set x 0   set z +

Code:

if {[llength [split $arg]] == 1} { set arg [join [split $arg {}]] }

Statistics: Posted by ppslim — Sat Oct 11, 2003 6:51 am

!calc - calculator script

2003-10-11T05:56:08-04:00

Starange behaviour..

[11:55:10] [@3zzy]: !calc 5+5
[11:55:15] [@barabashka]: Invalid character found

[11:54:41] [@3zzy]: !calc 5 + 5
[11:54:43] [@barabashka]: Calculated value = 5
[11:54:45] [@barabashka]: Calculated value = 10

[11:55:34] [@3zzy]: !calc 5 * 5
[11:55:36] [@barabashka]: Calculated value = 5
[11:55:38] [@barabashka]: Calculated value = 25

Statistics: Posted by 3zzy — Sat Oct 11, 2003 5:56 am

!calc - calculator script

2003-10-10T07:14:12-04:00

Why not use errinfo to give that description then.

Because of the "0+" making it return the wrong error (the error is captured by catch in my proc, but i don't display it)

Statistics: Posted by user — Fri Oct 10, 2003 7:14 am

!calc - calculator script

2003-10-10T07:11:57-04:00

Why not use errinfo to give that description then.

Statistics: Posted by ppslim — Fri Oct 10, 2003 7:11 am

secure expr

2003-10-10T06:56:41-04:00

Here's a safe way to expr stuff (works with math functions like sin/rand/abs etc too). The price you have to pay is less descriptive error messages.

Code:

proc sexpr {e} {if {[catch {expr 0+[list $e]} r]} {set e "syntax error in expression \"$e\""} {set e "$e = $r"}}

Statistics: Posted by user — Fri Oct 10, 2003 6:56 am

!calc - calculator script

2003-10-10T06:33:50-04:00

Code:

proc pub:calc {nick uh hand chan arg} {  set x 0  set z +  foreach a [split $arg] {    switch -- $a {      {*} -      {-} -      {/} -      {+} { set z $a }      default {         if {![regexp {^[0-9]+$} $a]} {           puthelp "PRIVMSG $chan :Invalid character found"           return         }         set x [expr $x $z $a]      }  }  puthelp "PRIVMSG $chan :Calculated value = $x"}bind pub - "!calc" pub:calc

Statistics: Posted by ppslim — Fri Oct 10, 2003 6:33 am

!calc - calculator script

2003-10-10T06:10:25-04:00

Is there one out there? not the one which also works as a definition engine, i need only a calculator script which would respond to public commands e.g. !calc 5+5 etc..

Statistics: Posted by 3zzy — Fri Oct 10, 2003 6:10 am