Hackerboard Wiki HaboBlog
Hackerboard bei Facebook Hackerboard bei Google+ Hackerboard bei Twitter

[HaBo]

 
Programmieraufgaben Hier wird regelmäßig eine neue Programmieraufgabe gestellt, die dann gelöst werden soll und in Zusammenarbeit mit den Moderatoren auch besprochen werden kann.

Zahlenreihe

Diskussion: Zahlenreihe im Forum Programmieraufgaben, in der Kategorie Code Kitchen; Anzeige Zitat: Original von Lesco Zitat: Original von Eydeet Haskell: Code: numbers = 1 : 2 : [a + 1 ...
Antwort
Seite 5 von 5 « Erste 34 5
Themen-Optionen Ansicht
   
Alt 11.06.09, 20:06   #61 (permalink)
 
Benutzerbild von Eydeet
 
Registriert seit: 14.04.06
Eydeet Leistung: Facit NTK
Likes: 4
Standard
Anzeige

Zitat:
Original von Lesco
Zitat:
Original von Eydeet
Haskell:
Code:
numbers = 1 : 2 : [a + 1 | (a) <- tail numbers]
main = print (take 100 numbers)
Wieso nicht einfach "[1..100]"?
Weil das zu einfach wäre.

Nee, im Ernst: Ich habe heute angefangen, mir Haskell anzuschauen, von daher ist mir diese Syntax noch gar nicht begegnet. Meine Lösung ist das einzige Haskell-Programm das ich bisher geschrieben habe.
Eydeet ist offline   Mit Zitat antworten
Alt 11.06.09, 21:26   #62 (permalink)
Senior Member
 
Registriert seit: 03.09.05
Lesco Leistung: Facit NTK
Likes: 0
Standard
Zitat:
Original von Eydeet
Zitat:
Original von Lesco
Zitat:
Original von Eydeet
Haskell:
Code:
numbers = 1 : 2 : [a + 1 | (a) <- tail numbers]
main = print (take 100 numbers)
Wieso nicht einfach "[1..100]"?
Weil das zu einfach wäre.

Nee, im Ernst: Ich habe heute angefangen, mir Haskell anzuschauen, von daher ist mir diese Syntax noch gar nicht begegnet. Meine Lösung ist das einzige Haskell-Programm das ich bisher geschrieben habe.
Ok, habe ich schon vermutet. Deine Lösung hat natürlich den stilistischen "Vorteil", dass sie in den meisten anderen Sprachen, in dieser Form nicht implementiert werden könnte.
Lesco ist offline   Mit Zitat antworten
Alt 12.06.09, 18:39   #63 (permalink)
 
Benutzerbild von bad_alloc
 
Registriert seit: 27.12.07
bad_alloc Leistung: 8086
Likes: 39
Standard
so hier meine lösung in clisp
Code:
(defun listfrom (target)
	   (setf i (+ 1 target))
	   (format t "~d" i)
	   (if (< i 100) (listfrom i))
	 )
ich lerne lisp erst seit gestern, daher ist das vielleicht etwas umständlich. starten muss man die funktion mit 0.
__________________
You shoot yourself in somebody else's foot.|Dann gabs da noch den Mathematiker der P?=NP in O(1) erklärte.
|[A]| = p(·,|[A]|)+1
bad_alloc ist offline   Mit Zitat antworten
Alt 11.11.10, 15:10   #64 (permalink)
 
Registriert seit: 10.11.10
DMRMcK Leistung: Z3
Likes: 0
Standard VB
Zar ein alter thread, hab aber nix von VB gesehen.
Darum hier zur Vervollständigung:

VB   

Code:
Imports System.Console

Module Module1
    Dim x As Integer = 0

    Sub Main()
        ausgeben()
        ReadLine()
    End Sub

    Public Sub ausgeben()
        If x = 100 Then
            Exit Sub
        Else
            x += 1
            WriteLine(x.ToString)
            ausgeben()
        End If
    End Sub

End Module
DMRMcK ist offline   Mit Zitat antworten
Antwort
Seite 5 von 5 « Erste 34 5
   
- Anzeige -

Werbung ist gerade online    

[HaBo] » Software Home » Code Kitchen » Programmieraufgaben » Zahlenreihe
« Vorheriges Thema | Nächstes Thema »
Themen-Optionen
Ansicht
Linear-Darstellung Linear-Darstellung

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks sind aus
Pingbacks sind aus
Refbacks sind aus

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
rekursive Zahlenreihe CDW Programmieraufgaben 22 08.06.11 12:01

Alle Zeitangaben in WEZ +2. Es ist jetzt 05:12 Uhr.
vBulletin® v3.8.7, Copyright ©2000-2012, vBulletin Solutions, Inc.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61