def 'str entropy' [] {
split chars | do {|len|
(uniq -c).count
| each { ($in | math log 2) * $in }
| math sum
| ($len | math log 2) - $in / $len
} ($in | length)
}
'1223334444' | str entropy