-MarkusRaab hat gefragt ob es möglich ist mit funktionaler Programmierung\r
-auch ein neues Array zu erzeugen.\r
-\r
-Lösung in Python:\r
-\r
-{{{\r
-def creator (f,c,n):\r
- if n==1:\r
- return c\r
- else:\r
- return creator (f, lambda x: f(c(x)), n-1)\r
-\r
-\r
-f=creator (lambda y: y + [1], lambda x:x, 5)\r
-print f([])\r
-}}}\r
-\r
-Lösung in Lisp\r
-{{{\r
-(define (creator f c n)\r
- (cond ((= n 0)\r
- c)\r
- (else\r
- (creator f\r
- (f c)\r
- (- n 1)))))\r
-\r
-((creator (lambda (x)\r
- (lambda (y) (x (cons 'a y))))\r
- (lambda (x) x)\r
- 7)\r
- '())\r
-}}}\r
-----\r
-CategoryCodeSnippets
\ No newline at end of file
+
+[[MarkusRaab|MarkusRaab]] hat gefragt ob es möglich ist mit funktionaler Programmierung auch ein neues Array zu erzeugen.
+
+Lösung in Python:
+
+
+[[!format txt """
+def creator (f,c,n):
+ if n==1:
+ return c
+ else:
+ return creator (f, lambda x: f(c(x)), n-1)
+
+
+f=creator (lambda y: y + [1], lambda x:x, 5)
+print f([])
+"""]]
+Lösung in Lisp
+[[!format txt """
+(define (creator f c n)
+ (cond ((= n 0)
+ c)
+ (else
+ (creator f
+ (f c)
+ (- n 1)))))
+
+((creator (lambda (x)
+ (lambda (y) (x (cons 'a y))))
+ (lambda (x) x)
+ 7)
+ '())
+"""]]
+
+
+ [[!tag CategoryCodeSnippets]]