kkirsanov

s="12345.123421"

if '.' not in s
    s+=".00"

a, b = s.split('.')
cnt=0
tmp=""
for x in reversed(a)
	tmp+=x

kkirsanov

function _driver_sms2ru() {
		# Проверяем секретный ключ
		$key_md5 = md5(trim($this->config['billing_secret_key']) . $_GET['id']);
	/*	if($_GET['key'] != $key_md5) {
			exit('hacking attempt'); // скрипт был вызван с неправильным параметром безопасности.
		}
*/
		# Получаем данне СМС
		$this->sms_data = array(
			'billing_sms_id' => $_GET['smsid'],

kkirsanov

<?
function _driver_sms2ru() {
		# Проверяем секретный ключ
		$key_md5 = md5(trim($this->config['billing_secret_key']) . $_GET['id']);
	/*	if($_GET['key'] != $key_md5) {
			exit('hacking attempt'); // скрипт был вызван с неправильным параметром безопасности.
		}
*/
		# Получаем данне СМС
		$this->sms_data = array(

kkirsanov

<?
function _driver_sms2ru() {
		# Проверяем секретный ключ
		$key_md5 = md5(trim($this->config['billing_secret_key']) . $_GET['id']);
	/*	if($_GET['key'] != $key_md5) {
			exit('hacking attempt'); // скрипт был вызван с неправильным параметром безопасности.
		}
*/
		# Получаем данне СМС
		$this->sms_data = array(

kkirsanov

import System.IO
import System.IO.Error
import Control.Monad
import Network.HTTP
import qualified Data.Map as Map

type FreqDB   = Map.Map String Integer 

updateFreq freq word = Map.insertWith' (+) word 1 freq

kkirsanov

data Bool' = False' | True' deriving (Eq, Show, Ord)



not :: Bool' -> Bool'
not False' = True'
not True' = False'

(\/) :: Bool'->Bool'->Bool'

kkirsanov

data Logic a where
    B :: Bool -> Logic Bool
    And :: Logic Bool -> Logic Bool -> Logic Bool
    Or  :: Logic Bool -> Logic Bool -> Logic Bool
    Imp  :: Logic Bool -> Logic Bool -> Logic Bool
    Not :: Logic Bool -> Logic Bool

imp :: Bool->Bool->Bool
imp False _ = True
imp True True = True

kkirsanov

data Logic a where
    I :: Int  -> Logic Int 
    B :: Bool -> Logic Bool

lEqual :: Logic a -> Logic b -> Bool
lEqual (I x) (I y)     = x == y
lEqual (B x) (B y)     = x ==  y
lEqual _ _             = False

instance Eq (Logic a) where 

kkirsanov

import Data.List (group)

rle:: String -> [(Char, Int)]
rle []        = error "Empty List"
rle [x]       = [(x, 1)]
rle st@(x:xs) = (head start, cnt) : rle ending where
            start = takeWhile (==x) st
            cnt = length start
            ending = drop cnt st

kkirsanov

import Data.List

infinityString st = st ++ infinityString st

split :: String->Char->[String]
split [] ch = []
split st ch = start : split ending ch where
                    (start, e) = break (==ch) st
                    ending     = drop 1 e