Jump to content

Hoću da budem programerka

Featured Replies

Otprilike :lol:

Uciteljice, Aion vara! Tekst mora da ide u fajl a ne na konzolu!

... > t.txt

u R-u:

 

for (i in 1000:2500) {print(paste0("ppp/programiranje/", i, ".html"))}

Biciklista i ti varas :D

  • Author

Nabijte Djubreta u ćošak i slomite mu naočare.

uz pomoć rxjs sa varanjem™ (ko će da se bakće sa I/O :D )

Rx.Observable
  .range(1000, 2501)
  .map(x => 'ppp' + x.toString() + '.html')
  .subscribe(function(x) {
     console.log(x);
  });

pa ako već hoćete, evo vam i VBS... Najnezgrapniji od svih ...

 

 

outFile="file.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(outFile,True)
for i = 1000 to 2500
objFile.Write "ppp/programiranje/" & i & ".html" & vbCrLf
next
objFile.Close

 

uz pomoć rxjs sa varanjem™ (ko će da se bakće sa I/O :D )

Rx.Observable
  .range(1000, 2501)
  .map(x => 'ppp' + x.toString() + '.html')
  .subscribe(function(x) {
     console.log(x);
  });

 

Vrlo elegantno resenje :D 

Vrlo elegantno resenje :D

 

moraš da budeš u trendu™

Ako se igramo ruznog, evo i ove male nakazice koja mi je donosila leba na sto toliko dugo da sam je zavoleo kao sto majka zavoli ruzno dete

Objective C, pogledajte mu samo kako radi sa stringovima, kao da se radi o najegzoticnijoj stvari u svemiru :D :

 

 

    [[NSFileManager defaultManager] createFileAtPath:@"fajl.txt" contents:nil attributes:nil];
    NSString* str = @"";
    for(int i=1000; i<=2500; i++) {
        str = [str stringByAppendingFormat:@"ppp/programiranje/%d.htm\n", i];
    }
    [str writeToFile:@"fajl.txt" atomically:YES encoding:NSUTF8StringEncoding error:nil];
<?php
$myfile = fopen("tekst.txt","w")
for($i=1000;$i<=2500;$i++) {
$str = "/ppp/programiranje/".$i."html\n";
fwrite($myfile, $str);
}
?>

:yawn2:

Ako ćemo egzotiku...

Edit: REXX na z/OS

"ALLOC DA('IME.FAJLA') FI(IZLAZ) NEW" 
DO I = 1000 TO 2500                                    
  QUEUE '/ppp/programiranje/'I'.html'                          
END                                               
"EXECIO * DISKW IZLAZ (FINIS"                     
"FREE FI(IZLAZ)"                                  

Edited by Velocipede

<?php
$myfile = fopen("tekst.txt","w")
for($i=1000;$i<=2500;$i++) {
$str = "/ppp/programiranje/".$i."html\n";
fwrite($myfile, $str);
}
?>

:yawn2:

 

 

PHP u ovom konkretnom problemu zacujuce neodvratan :D

PHP u ovom konkretnom problemu zacujuce neodvratan :D

 

:mad:

Create an account or sign in to comment