vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln 
Autor: Sloorg
Datum: 25.07.16 09:40

od. der hier wär in Ruby, mit Ausgabe in *.txt-Datei, geht aber leider auch nicht: (evtl. weil er auf Linux programmiert wurde?) Ruby hätte halt den Vorteil, dass solche Algorithmen schon automatisch in der Sprache enthalten sind - was natürlich ein immenser Vorteil ist... (lt. einem Ruby-Pro; habe extra Ruby installiert... aber: "Nichts geht!" - Catweazle! - Schampamporasch! :P

#!/usr/bin/env ruby
 
ALLOWED_LENGTHS = [2, 4, 8, 16].freeze
Note = Struct.new(:length, :is_pause)
 
Dir.chdir(File.dirname(__FILE__))
 
print "Ausgabedatei festlegen: "
path = $stdin.gets.chomp
 
puts "Ausgabe erfolgt nach #{File.expand_path(path)}."
 
notes = []
loop do
  print "Notenwert eingeben ('ENDE' beendet die Eingabe): "
  line = $stdin.gets.chomp
 
  break if line.downcase.strip == "ende"
 
  note = Note.new
  note.is_pause = line.start_with?("_")
 
  length = line.sub("_", "").to_i
  fail "Ungueltige Notenlaenge: #{length}" unless ALLOWED_LENGTHS.include?( _
    length)
 
  note.length = length
  notes << note
end
 
File.open(path, "w") do |file|
  notes.permutation.each do |perm_ary|
    perm_ary.each_with_index do |note, i|
      file.print " " unless i == 0
      file.print "_" if note.is_pause
      file.print note.length
    end
    file.puts
  end
end
 
puts "Fertig."
sleep 5


Beitrag wurde zuletzt am 25.07.16 um 09:50:16 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
4 Zahlenreihen -- alle möglichen Kombinationen ermitteln4.791Schudi13.02.12 19:53
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln3.547Manfred X13.02.12 20:22
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln3.422Schudi13.02.12 20:32
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln3.963Manfred X13.02.12 21:25
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.503Sloorg09.07.16 13:22
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.716Manfred X09.07.16 21:29
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln3.744Preisser13.02.12 21:38
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.567Sloorg09.07.16 23:08
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.603Manfred X10.07.16 10:33
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.693Franki21.07.16 04:23
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.646Sloorg11.07.16 03:56
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.524Sloorg20.07.16 07:41
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.503Franki21.07.16 04:27
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.519Sloorg21.07.16 10:21
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.478Sloorg21.07.16 11:10
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.485Franki22.07.16 03:15
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.486Sloorg22.08.16 10:05
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.440Manfred X21.07.16 11:12
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.479Franki22.07.16 02:36
Unterscheidbare Permutationen2.503Manfred X22.07.16 04:49
Re: Unterscheidbare Permutationen2.496Franki24.07.16 01:33
Re: Unterscheidbare Permutationen2.404Sloorg24.07.16 19:35
Re: Unterscheidbare Permutationen2.493Manfred X24.07.16 21:05
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.548Sloorg25.07.16 09:31
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.592Sloorg25.07.16 09:40
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.450Manfred X25.07.16 16:01
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.491Franki27.07.16 01:27
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.456Manfred X28.07.16 12:07
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.584kocengmalek28.07.16 09:14
Re: 4 Zahlenreihen -- alle möglichen Kombinationen ermitteln2.608kocengmalek28.07.16 10:14

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel