<commit_before>USING: kernel math tools.test namespaces random
random.blum-blum-shub ;
IN: blum-blum-shub.tests

[ 887708070 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } random-32*
] unit-test


[ 887708070 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } [
        32 random-bits
    ] with-random
] unit-test

[ 5726770047455156646 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } [
        64 random-bits
    ] with-random
] unit-test

[ 3716213681 ]
[
    100 T{ blum-blum-shub f 200352954495 846054538649 } tuck [
        random-32* drop
    ] curry times
    random-32*
] unit-test<commit_msg>Fix blum blum shub unit tests on big endian<commit_after>USING: kernel math tools.test namespaces random
random.blum-blum-shub alien.c-types sequences splitting ;
IN: blum-blum-shub.tests

[ 887708070 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } clone random-32*
] unit-test


[ 887708070 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } clone [
        32 random-bits
        little-endian? [ <uint> reverse *uint ] unless
    ] with-random
] unit-test

[ 5726770047455156646 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } clone [
        64 random-bits
        little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless
    ] with-random
] unit-test

[ 3716213681 ]
[
    100 T{ blum-blum-shub f 200352954495 846054538649 } clone tuck [
        random-32* drop
    ] curry times
    random-32*
] unit-test
{'fraction_non_alphanumeric': 0.10006761325219743, 'fraction_numerical': 0.2116294793779581, 'mean_word_length': 2.8541666666666665, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5827679', 'n_tokens_mistral': 782, 'n_tokens_neox': 570, 'n_words': 130}