Страница 4 из 4

Re: Задача..

СообщениеДобавлено: 03 фев 2010, 21:27
DPX-Infinity
Zver писал(а):У мну идея :D
Давайте устроим форум во флудилке - даётся какая-то задаяа, и любым языком програмирования нужно её реализовать :D
Укого меньше кода получится - тот и создаёт новое задание, и так по цепочке...

поддерживаю) давай начинай)

Re: Задача..

СообщениеДобавлено: 03 фев 2010, 21:45
-=GIG=-
Мать моя женщина :shock:
Мне тут реггер подогнали мультипоточный с бешенной скоростью регистрации - 10/50 номеров в секунду при условии адекватных прокси . На моих паблик работает нестабильно от 10 в секунду . Так вот автор намудрил регистрацию в таком виде что ни один сменщик паролей не хочет брать txtшники :D

Re: Задача..

СообщениеДобавлено: 04 фев 2010, 00:53
On-line
-=GIG=- писал(а):Мать моя женщина :shock:
Мне тут реггер подогнали мультипоточный с бешенной скоростью регистрации - 10/50 номеров в секунду при условии адекватных прокси . На моих паблик работает нестабильно от 10 в секунду . Так вот автор намудрил регистрацию в таком виде что ни один сменщик паролей не хочет брать txtшники :D

:lol:

Re: Задача..

СообщениеДобавлено: 04 фев 2010, 15:38
Rostov114
Zver я все от тебя ожидал, но не таких извращений
Код: Выделить всёРазвернуть
<?php
$data 
file($argv['1']);

foreach (
$data as $value)
{
    
$value explode(';'$value);
    print 
$value['0'].';'.$value['1']."\n";

Re: Задача..

СообщениеДобавлено: 04 фев 2010, 15:40
DPX-Infinity
вот ещё вариант)
Код: Выделить всёРазвернуть
#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))

правда, я Схему только начал изучать, так что не очень коротко)

Re: Задача..

СообщениеДобавлено: 16 фев 2010, 17:43
DEZmont
где его можнонайти!!! этот С++?

Re: Задача..

СообщениеДобавлено: 16 фев 2010, 21:09
Zver
Вот тут посмотри. Я где то видел...