Skip to main content
deleted 20 characters in body
Source Link
att
  • 21.7k
  • 2
  • 16
  • 62

Wolfram Language (Mathematica), 6254 bytes

⌊2[][⌊{,7.771,3+1@{.1,2,3,,,7.77}]~Extract~Sort[Last[[Total[Counts@#2^2]/@Tally@#2-2]+2]]+.01#⌋&

Try it online!Try it online!

Wolfram Language (Mathematica), 62 bytes

⌊2[][,7.77,3+1@{.1}]~Extract~Sort[Last/@Tally@#2-2]+.01#⌋&

Try it online!

Wolfram Language (Mathematica), 54 bytes

⌊{,.1,1,2,3,,,7.77}[[Total[Counts@#2^2]/2]]+.01#⌋&

Try it online!

deleted 2 characters in body
Source Link
att
  • 21.7k
  • 2
  • 16
  • 62

Wolfram Language (Mathematica), 6562 bytes

⌊2[][,7.1[][1][77,3][3+1@{2},,7.77]~Extract~Sort[Last1}]~Extract~Sort[Last/@Tally@#2-1]+2]+.01#⌋&

Try it online!Try it online!

Wolfram Language (Mathematica), 65 bytes

.1[][1][,3][{2},,7.77]~Extract~Sort[Last/@Tally@#2-1]+.01#⌋&

Try it online!

Wolfram Language (Mathematica), 62 bytes

⌊2[][,7.77,3+1@{.1}]~Extract~Sort[Last/@Tally@#2-2]+.01#⌋&

Try it online!

deleted 4 characters in body
Source Link
att
  • 21.7k
  • 2
  • 16
  • 62

Wolfram Language (Mathematica), 6765 bytes

{{{{.1},1},,3}1[][1][,3][{,2},,7.77}~Extract~Sort[Last77]~Extract~Sort[Last/@Tally@#2]+@Tally@#2-1]+.01#⌋&

Try it online!Try it online!

Wolfram Language (Mathematica), 67 bytes

{{{{.1},1},,3},{,2},,7.77}~Extract~Sort[Last/@Tally@#2]+.01#⌋&

Try it online!

Wolfram Language (Mathematica), 65 bytes

⌊.1[][1][,3][{2},,7.77]~Extract~Sort[Last/@Tally@#2-1]+.01#⌋&

Try it online!

Source Link
att
  • 21.7k
  • 2
  • 16
  • 62
Loading