Code Golf

Return to Answer

deleted 6 characters in body

Source Link

edited May 1 at 8:58

sergiol

edited May 1 at 8:58

sergiol

4.1k
1
17
37

Tcl, 118115 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([lmap c([join $L {list +-$m)**2+($c]-$m)**2}])/$n)}}

Try it online! Try it online!

Tcl, 118 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([lmap c $L {list +($c-$m)**2}])/$n)}}

Try it online!

Tcl, 115 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt((([join $L -$m)**2+(]-$m)**2)/$n)}}

Try it online!

deleted 7 characters in body

Source Link

edited Apr 25 at 18:28

sergiol

edited Apr 25 at 18:28

sergiol

4.1k
1
17
37

Tcl, 126118 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([join [lmap c $L {exprlist +($c-$m)**2}] +])/$n)}}

Try it online! Try it online!

Tcl, 126 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([join [lmap c $L {expr ($c-$m)**2}] +])/$n)}}

Try it online!

Tcl, 118 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([lmap c $L {list +($c-$m)**2}])/$n)}}

Try it online!

deleted 25 characters in body

Source Link

edited Dec 15, 2018 at 19:14

sergiol

edited Dec 15, 2018 at 19:14

sergiol

4.1k
1
17
37

Tcl, 129126 bytes

proc S {L q\ 0} {lmap c $L {set qexpr ($q+($c-[set m ([join $L +])/[set n [llength $L]].])**2)}
lmap/sqrt(([join [lmap c $L {expr ($c-$m)/sqrt($q**2}] +])/$n)}}

Try it online! Try it online!

Tcl, 129 bytes

proc S {L q\ 0} {lmap c $L {set q ($q+($c-[set m ([join $L +])/[set n [llength $L]].])**2)}
lmap c $L {expr ($c-$m)/sqrt($q/$n)}}

Try it online!

Tcl, 126 bytes

proc S L {lmap c $L {expr ($c-[set m ([join $L +])/[set n [llength $L]].])/sqrt(([join [lmap c $L {expr ($c-$m)**2}] +])/$n)}}

Try it online!

deleted 9 characters in body

Source Link

edited Dec 15, 2018 at 9:36

sergiol

edited Dec 15, 2018 at 9:36

sergiol

4.1k
1
17
37

deleted 12 characters in body

Source Link

edited Dec 15, 2018 at 9:29

sergiol

edited Dec 15, 2018 at 9:29

sergiol

4.1k
1
17
37

added 3 characters in body

Source Link

edited Dec 14, 2018 at 20:17

sergiol

edited Dec 14, 2018 at 20:17

sergiol

4.1k
1
17
37

added 1 character in body

Source Link

edited Dec 14, 2018 at 20:11

sergiol

edited Dec 14, 2018 at 20:11

sergiol

4.1k
1
17
37

Source Link

answered Dec 14, 2018 at 20:06

sergiol

answered Dec 14, 2018 at 20:06

sergiol

4.1k
1
17
37