Zver писал(а):У мну идея
Давайте устроим форум во флудилке - даётся какая-то задаяа, и любым языком програмирования нужно её реализовать
Укого меньше кода получится - тот и создаёт новое задание, и так по цепочке...
поддерживаю) давай начинай)
Zver писал(а):У мну идея
Давайте устроим форум во флудилке - даётся какая-то задаяа, и любым языком програмирования нужно её реализовать
Укого меньше кода получится - тот и создаёт новое задание, и так по цепочке...
-=GIG=- писал(а):Мать моя женщина
Мне тут реггер подогнали мультипоточный с бешенной скоростью регистрации - 10/50 номеров в секунду при условии адекватных прокси . На моих паблик работает нестабильно от 10 в секунду . Так вот автор намудрил регистрацию в таком виде что ни один сменщик паролей не хочет брать txtшники
<?php
$data = file($argv['1']);
foreach ($data as $value)
{
$value = explode(';', $value);
print $value['0'].';'.$value['1']."\n";
}
#lang scheme
(define argv
(command-line
#:args args
args))
(define (find-nth-semicolon nn ss)
(let loop ((n nn)
(p 0)
(s ss))
(cond
[(= n 0) (- p 1)]
[(null? s) #f]
[(char=? (car s) #\;) (loop (- n 1) (+ p 1) (cdr s))]
[else (loop n (+ p 1) (cdr s))])))
(define (transformed ln)
(substring ln 0 (find-nth-semicolon 2 (string->list ln))))
(define (do-work f1 f2)
(call-with-input-file f1
(lambda (i)
(call-with-output-file f2
#:exists 'truncate/replace
(lambda (o)
(let loop ((ln (read-line i)))
(unless (eof-object? ln)
(begin
(write-string (transformed ln) o)
(newline o)
(loop (read-line i))))))))))
(do-work (car argv) (cadr argv))
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10