«Дело было вечером, делать было нечего» или краткая история о сравнении производительности языков программирования

import System.Environment (getArgs)

firstOrDefault :: [String] -> Int -> Int
firstOrDefault args defaultValue =
    if length args == 1
        then read (head args)
        else defaultValue

getJ :: Int -> Int -> Int -> Int
getJ j i number =
    if i > number
        then j
        else if number `rem` i == 0
                then getJ (j + 1) (i + 1) number
                else getJ j (i + 1) number

getNumber :: Int -> Int -> Int
getNumber primeNumberCount number =
    if primeNumberCount == 0
        then number
        else do
            let numberInc = number + 1
            let j = getJ 0 1 numberInc
            if j == 2
                then getNumber (primeNumberCount - 1) numberInc
                else getNumber primeNumberCount numberInc

main :: IO ()
main = do
    args <- getArgs
    let primeNumberCount = firstOrDefault args 100

    let number = getNumber primeNumberCount 0
    putStrLn ("The latest prime number: " ++ (show number))

g++ test.c -Ofast -std=c++11 -o test

#include <stdio.h>
#include <stdlib.h>
#include <cstdint>

int main( int argc, char *argv[] )
{
    uint16_t primeNumberCount = 100;
    if (argc == 2) {
        primeNumberCount = atoi(argv[1]);
    }
    uint32_t keeper = 0;
    uint32_t number = 0;
    while (primeNumberCount > 0) {
        ++number;

        uint16_t j = 0;
        for (uint32_t i = 1; i <= number; ++i) {
            if (number % i == 0) {
                ++j;
            }
        }
        if (j % 2 == 1) {
            ++keeper;
        }
        if (j == 2) {
            --primeNumberCount;
        }
    }

    printf("The latest prime number: %d\n", number);
    printf("Keeper: %d\n", keeper); // usage
}

local primeNumberCount = 100;
if #arg == 1 then
    primeNumberCount = tonumber(arg[1]);
end

local number = 0;
local keeper = 0
while primeNumberCount > 0 do
    number = number + 1

    local j = 0;
    for i = 1, number do
        if number % i == 0 then
            j = j + 1;
        end
    end
    if (j % 2) == 1 then
	keeper = keeper + 1
    end
    if j == 2 then
        primeNumberCount = primeNumberCount - 1;
    end
end

print('The latest prime number: ', number);
print('keeper ', keeper); -- usage

#include <stdio.h>
#include <stdlib.h>
#include <cstdint>

int main( int argc, char *argv[] )
{
    uint16_t primeNumberCount = 100;
    if (argc == 2) {
        primeNumberCount = atoi(argv[1]);
    }
    uint32_t keeper = 0;
    uint32_t number = 0;
    uint32_t meanless = 0;
    while (primeNumberCount > 0) {
        ++number;

        uint16_t j = 0;
        if (number % 2 == 1) {
            for (uint32_t i = 1; i <= number; ++i) {
                if (number % i == 0) {
                    ++j;
                }
            }
        } else {
            for (uint32_t i = 1; i <= number; ++i) {
                if (number % i == 0) {
                    ++j;
                } else {
                    ++meanless;
                }
            }
        }
        if (j % 2 == 1) {
            ++keeper;
        }
        if (j == 2) {
            --primeNumberCount;
        }
    }

    printf("The latest prime number: %d\n", number);
    printf("Keeper: %d\n", keeper); // usage
    printf("Meow: %d\n", meanless); // usage
}

local primeNumberCount = 100
if #arg == 1 then
    primeNumberCount = tonumber(arg[1])
end

local number = 0
local keeper = 0
local meanless = 0
while primeNumberCount > 0 do
    number = number + 1

    local j = 0
    if number % 2 == 1 then
        for i = 1, number do
            if number % i == 0 then
                j = j + 1
            end
        end
    else
        for i = 1, number do
            if number % i == 0 then
                j = j + 1
            else
                meanless = meanless + 1
            end
        end
    end
    if (j % 2) == 1 then
        keeper = keeper + 1
    end
    if j == 2 then
        primeNumberCount = primeNumberCount - 1
    end
end

print('The latest prime number: ', number)
print('keeper: ', keeper) -- usage
print('Meow: ', meanless) -- usage