cppxor2arr

{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE BangPatterns #-}

module Main where

import System.Environment (getArgs)
import Text.Read (readMaybe)
import Control.Monad (when,unless)
import Data.Maybe (isNothing,fromJust,fromMaybe)
import Data.Complex

cppxor2arr

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE BangPatterns #-}

module Main where

import qualified System.Console.Terminal.Size as Term (size,width,height)
import Data.Maybe (fromMaybe)
import Data.Vector (Vector,(!))
import qualified Data.Vector as V
import Data.Text (Text)

cppxor2arr

{-# LANGUAGE OverloadedStrings #-}

module Squiglies (squiglies) where

import Data.Map.Strict (Map, fromList)
import Data.Text (Text)

squiglies :: Map Char Text
squiglies = fromList
    [

cppxor2arr

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Applicative
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.List as L (intersperse)
import Data.List (maximumBy)
import Data.Ord (comparing)

cppxor2arr

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverlappingInstances #-}

module Main where

import Data.Map (fromListWith, toList)

main :: IO ()
main = do
    let log = "date time Zerock henlo\n\

cppxor2arr

#include <iostream>
#include <utility>
#include <string>
#include <algorithm>
#include <cctype>
#include <map>
#include <random>
#include <chrono>
#include <stdexcept>

cppxor2arr

module Main where

import Data.List (genericTake)

{-
let p(i) be the i(th) prime number starting from 2
[p1,p2,p3,p4,p5...]
[(p2-p1),(p3-p2),(p4-p3),(p5-p4)...]
[{(p3-p2)-(p2-p1)},{(p4-p3)-(p3-p2)},{(p5-p4)-(p4-p3)}...]
... etc. applied n times

cppxor2arr

average :: Fractional a => [a] -> a
average xs = sum xs / fromIntegral (length xs) 

range :: (Num a, Ord a) => [a] -> a
range xs = maximum xs - minimum xs

meanNormalize :: (Fractional a, Ord a) => [a] -> a -> a
meanNormalize xs = (/ range xs) . subtract (average xs) 

-- GHCI

cppxor2arr

f :: Num a => [a] -> [a]
f [] = []
f [x] = []
f [x1,x2] = [x2-x1]
f (x1:x2:xs) = x2-x1:f (x2:xs)

cppxor2arr

#!/usr/bin/env python3

import sys, requests
from bs4 import BeautifulSoup
from random import choice

def main(argv):
    if len(argv) < 2:
        sys.exit("Invalid argument(s)\nSyntax: [optional: -n [n definition/examples]] [search term]")
    if len(argv) > 3: