ilyakooo0

#!/usr/bin/env stack
-- stack --resolver lts-13.21 --install-ghc runghc --package pandoc --package pandoc-types

{-# OPTIONS_GHC -Wall #-}

import Text.Pandoc
import Text.Pandoc.JSON
import Data.Foldable
import Debug.Trace

ilyakooo0

import Foundation

#if os(Linux)
    import SwiftGlibc
    
SwiftGlibc.srandom(UInt32(time(nil)))
    
    public func arc4random_uniform(_ max: UInt32) -> Int32 {
        return (SwiftGlibc.rand() % Int32(max-1))
    }

ilyakooo0

import Foundation
#if os(Linux)
    import SwiftGlibc
    
    SwiftGlibc.srandom(UInt32(time(nil)))
    
    public func arc4random_uniform(_ max: UInt32) -> Int32 {
        return (SwiftGlibc.rand() % Int32(max-1))
    }
#endif

ilyakooo0

import Foundation
#if os(Linux)
    import SwiftGlibc
    
    SwiftGlibc.srandom(UInt32(time(nil)))

    public func arc4random_uniform(_ max: UInt32) -> Int32 {
        return (SwiftGlibc.rand() % Int32(max-1))
    }
#endif

ilyakooo0

import Data.List
import Control.Monad

most :: [Int] -> Int
most ns = let
            fs :: [[Int]]
            fs = group . sort . map (\n -> read [head . show $ n]) $ ns
            
            foo acc nn = case (fst acc `compare` length nn, snd acc `compare` head nn) of 
                            (GT, _) -> (length nn, head nn)