Rosetta Code

[Kiffi]

aber macht das Sinn?

schätze eher nicht. Aus diesem Grund habe ich ein simples

Code: Alles auswählen

Debug FileSize("input.txt")

hinzugefügt. Kann ja dann bei Bedarf geändert werden.

http://rosettacode.org/wiki/File_size#PureBasic

Danke & Grüße ... Kiffi

[Little John]

File System Root ist der aller erste Ordner im Dateisystem. Unter Linux hat er die Adresse "/". Unter Windows gibt es kein Äquivalent dazu (höchstens vielleicht Arbeitsplatz).

Ja, deshalb ergibt der zweite Teil der Aufgabenstellung IMHO für Windows keinen Sinn ( aber dafür können wir ja nichts ).
Deshalb habe ich dort mal hinzugefügt:

Code: Alles auswählen

Debug FileSize("/input.txt")

Das gilt dann eben nur für Linux (oder evtl. auch Mac OS ... keine Ahnung).

Gruß, Little John

[Vera]

Wow - das ist toll - gestern waren es 10 Einträge - jetzt sind es 23 _

Ich hab' mir auch mal vier kleine Aufgaben rausgesucht und bin mitten in der ersten schon wieder an eine 'unlösbare Hürde' gestoßen - aber ich versuch das erstmal selbst zu knacken _

macht Spass ~ Vera

~~~~~~~~~~~~~~~~~~~~~~~

Edit (27.02):
Es ist einfach überwältigend, in welcher Geschwindigkeit dieses Projekt voranschreitet _
Auf die 13 von gestern, folgten weitere 11 Lösungen bis heut' morgen, jetzt sind weitere 9 hinzugekommen - sieht aus, als würd's im Minutentakt wachsen.

Was für ein bemerkenswertes Zeichen einer vitalen Gemeinschaft _

Dank' an alle die teilnehmen und jene, die noch dazu kommen _

ps: die 'unlösbare Aufgabe' hat sich erledigt - immerhin war ich nah dran _

[Christian H]

Ich bin total begeistert wie schnell das Projekt wächst.
Da muss ich mich doch auch mal beteiligen.

Ich habe mich mal an http://rosettacode.org/wiki/Anagrams versucht. Kann das bitte Jemand mit englischen Kommentaren versehen und bei rosettacode.org eintragen.

Code: Alles auswählen

InitNetwork()  ; 
OpenConsole()
 
Procedure.s sortWord(word$)
  len.i = Len(word$)
  Dim CharArray.s (len)
  
  For n = 1 To len                        ; Jedes einzelne Zeichen
     CharArray(n) = Mid(word$, n, 1)      ; des Worts in ein Array
  Next                                    ; überfüren.
  
  SortArray(CharArray(),#PB_Sort_NoCase ) ; Das array sortieren
  
  word$ =""                               ; 
  For n = 1 To len                        ; Jedes Element des Array
     word$ + CharArray(n)                 ; zurück schreiben
  Next                                    ; 
  
  ProcedureReturn word$
EndProcedure
 
 
tmpdir$   = GetTemporaryDirectory()
filename$ = tmpdir$ + "unixdict.txt"
Structure ana
   isana.l
   anas.s
EndStructure   
NewMap anaMap.ana()

If ReceiveHTTPFile("http://www.puzzlers.org/pub/wordlists/unixdict.txt", filename$)
  If ReadFile(1, filename$)
    Repeat
      word$ = (ReadString(1))             ; Ein Wort aus der Datei lesen.
      key$  = (sortWord(word$))           ; Wort sortieren und in key$ ablegen. 
      
      If FindMapElement(anaMap(), key$)   ; nachschauen ob schon mal ein Wort den gleich key$ hatte.
                                          ; wenn ja  
         anaMap()\anas  = anaMap()\anas+ ", " + word$ ; Wort hinzufügen 
         anaMap()\isana + 1    
      Else
                                          ; wenn nein        
         anaMap(key$)\anas = word$        ; Neuen Eintrag anlegen
         anaMap()\isana + 1  
      EndIf 
    Until Eof(1)
    CloseFile(1)
    DeleteFile(filename$)
    
    ;----- Ausgabe ----- 
    ForEach anaMap()
      If anaMap()\isana >= 4  ; nur ausgeben was 4 oder mehr Treffer hatte.
        PrintN(anaMap()\anas)
      EndIf  
    Next 
    
    PrintN("Press any key"): Repeat: Until Inkey() <> ""        
  EndIf
EndIf

Gruß
Christian

1.03.2010, 21:29 ; Kommentar hinzugefügt

[Vera]

Hallo Christian,
toll, dass Du mitmachst

Ich hab Deinen Code bei Rosetta eingefügt und die eine Kommentarzeile übersetzt.
Nur kann ich, als Anfängerin, Deinem Code keine weiteren Kommentare oder Einleitung hinzufügen. Könnte es aber übertragen, wenn Du es nochmals incl. Comments postest oder aber einen unserer Mitstreiter bei Rosetta darum bitten.
Frage: braucht es auch den Hinweis, dass es versionsgebunden (zB v.4.41) ist ?

Grüße ~ Vera

ps: inzwischen sind es 76 Lösungen

[Christian H]

Hallo Vera,

Frage: braucht es auch den Hinweis, dass es versionsgebunden (zB v.4.41) ist ?

da es die"Map library" verwendet, braucht es mindestens V4.40
An die Kommentare setze ich mich nachher mal dran, leider fast nur in Deutsch da mein aktiver Wortschatz in Englisch deutlich kleiner ist, als mein passiver Wortschatz, von der englischen Rechtschreibung sollten wir gar nicht erst reden.

Gruß Christian

[Vera]

Hi Christian,

hab' Dein Update eben entdeckt, übersetzt und ausgetauscht.
Du kannst mit dem nächsten weitermachen

Leute - es ist toll zu sehen, wie es weiter wächst (heute 92 Lösungen) und spannend sich die kleinen feinen Verbesserungen anzusehen.

Grüße ~ Vera

[Macros]

Leute ist das frustrierend, jetzt war bei mir sechs Tage das Internet ausgefallen,
aber ich hatte mir vorher noch 3 Tabs mit Aufgaben geöffnet.
Also hab ich die 7 Tage mal genutzt um sie umzusetzen, und wollte sie gerade eintragen.

Nur war sowohl bei 99 Bottles of Beer als auch bei den Trigonometrischen Funktionen schon eine Lösung da,
ihr seid alle viel zu fleißig ^^
Immerhin hab ich die Combinations noch unterbringen können.

[NicTheQuick]

Ich bin auch gerade dabei neue Codes einzufügen. Allerdings ist die Seite momentan schleichend langsam. Der Seitenaufbau dauert teilweise 30 Sekunden und mehr...

Bisher ist von mir "Averages/Median", "Dot Product" und "Concurrent Computing". Was ich als nächstens mache, weiß ich noch nicht. Mal schauen.

[Christian H]

Dass geht unglaublich schnell. Wir sind schon bei 152.
Damit haben wir jede andere Basic-Version auf rosettacode.org in den Schatten gestellt.

Gruß Christian