PRotondo

%w(socket net/http thread monitor cmath ./rsa).map(&method(:require))

from_server = RSA.new
n,e = from_server.get_params

puts "Encryption system ready!"

server  = TCPSocket.new 'localhost', 2000 # change this part

a = server.gets.to_i

PRotondo

{-# OPTIONS -XFlexibleInstances -XMultiParamTypeClasses #-}

-- integrate on the unit cube
-- first argument indicates approximate error

class Integrable a b where
	int :: b -> (b->a) -> b

instance (Ord a, Floating a) => Integrable a a where
	int e f = within (e / 2) (integrate f 0 1)

PRotondo

MOD = 1000000007
MAX = 10000

$dp = Array.new(MAX+1)
$dq = Array.new(MAX+1)

$dp[0] = 1
$dq[0] = 1

def inv(a,n)

PRotondo

$dp = nil

def try(l,r,s)
	case s[l]
	when '('
		((l+1)..r).each do |i|
			return true if s[i] == ')' && go(l+1,i-1,s) && go(i+1,r,s)
		end
		false
	when ':'

PRotondo

#!/usr/bin/env runhaskell

-- Haskell traceroute over icmp
-- now with ByteString to avoid new errors produced
-- by the deprecated recvFrom from Network.Socket

import Control.Monad
import Data.Bits(complement)
import Data.ByteString(unpack,pack)
import Data.List