### https://theweeklychallenge.org/blog/perl-weekly-challenge-337/
"""

Task 1: Smaller Than Current

Submitted by: [40]Mohammad Sajid Anwar
     __________________________________________________________________

   You are given an array of numbers, @num1.

   Write a script to return an array, @num2, where $num2[i] is the count
   of all numbers less than or equal to $num1[i].

Example 1

Input: @num1 = (6, 5, 4, 8)
Output: (2, 1, 0, 3)

index 0: numbers <= 6 are 5, 4    => 2
index 1: numbers <= 5 are 4       => 1
index 2: numbers <= 4, none       => 0
index 3: numbers <= 8 are 6, 5, 4 => 3

Example 2

Input: @num1 = (7, 7, 7, 7)
Output: (3, 3, 3, 3)

Example 3

Input: @num1 = (5, 4, 3, 2, 1)
Output: (4, 3, 2, 1, 0)

Example 4

Input: @num1 = (-1, 0, 3, -2, 1)
Output: (1, 2, 4, 0, 3)

Example 5

Input: @num1 = (0, 1, 1, 2, 0)
Output: (1, 3, 3, 4, 1)

Task 2: Odd Matrix
"""
### solution by pokgopun@gmail.com

def stc(ints: tuple[int]) -> int:
    l = len(ints)
    return tuple(
            sum(1 for i in range(l) if i != j and ints[i] <= ints[j]) for j in range(l)
            )

import unittest

class TestStc(unittest.TestCase):
    def test(self):
        for inpt, otpt in {
                (6, 5, 4, 8): (2, 1, 0, 3),
                (7, 7, 7, 7): (3, 3, 3, 3),
                (5, 4, 3, 2, 1): (4, 3, 2, 1, 0),
                (-1, 0, 3, -2, 1): (1, 2, 4, 0, 3),
                (0, 1, 1, 2, 0): (1, 3, 3, 4, 1),
                }.items():
            self.assertEqual(stc(inpt),otpt)

unittest.main()