Functional Programming

[RageOfOrder]

Quick. Someone give me the relevant code in their language of choice to print out the number from 1 to 10, inclusive.

For example, in Perl:

print for (1..10);

Now, in Functional Programming (FP) there is no such thing as a variable or a constant. [b]Everything[/b] is a function.
Here's how you print 1 through 10 in FP:

? print1to is (if = o [ id , {1} ] cons o [ {1} , {<>} ] rotl o cons o [ id , print1to o - o [ id , {1} ] ]).
Function print1to defined.

? print1to:10.
-> <1 2 3 4 5 6 7 8 9 10>

Stupid Languages & Concepts class.

[GustTheASGuy]

What is that code?

The pure function to make a range list is

range n m
  | n < m     = n : range (n+1) m
  | otherwise = [m]

[kiwi-kiwi]

At 10/6/09 01:56 PM, RageOfOrder wrote:

? print1to is (if = o [ id , {1} ] cons o [ {1} , {<>} ] rotl o cons o [ id , print1to o - o [ id , {1} ] ]).
Function print1to defined.

? print1to:10.
-> <1 2 3 4 5 6 7 8 9 10>

Scheme?

Also

for (int i=0;i<10;i++)
{
   printf("%d ",i+1);
}

[gumOnShoe]

mmmm scheme

(define (range num max)
(if (num < max)
(list n (range (+ num 1) max))
empty
)
)

(define (start max)
(range 0 max))
Returns a list from 0 to max. You can figure out how to print it yourself...

Mmmm parens. And hopefuly none of those words are stopwords/protected/etc...

[RageOfOrder]

At 10/6/09 02:11 PM, GustTheASGuy wrote: What is that code?

A language called "FP", written by John Backus
Wikipedia

It was never designed for real-world use, just for education in schools.

[CacheHelper]

PrintNumber(1, 10);

private void PrintNumber(int start, int stop)
{
     for (int i = start; i <= stop; i++)
     {
          Console.Write(i.ToString()); 
     }
}

[GustTheASGuy]

That's not FP.

You just wanted to see some weird range implementations?

[Cinjection]

Hehe. I approve :). I'm glad people are starting to care about functional programming. Making a list is one thing, but the really impressive stuff can be seen when you implement "data" structures using only functions.

Also,

(define (make-a-list final-len)
     (local ((define (make-list-internal final-len cnt-len)
                 (if (equal? final-len cnt-len)
                      empty
                      (cons (read)  (make-list-internal final-len (+ 1 cnt-len))))))

     (make-list-internal 10 0))

Makes a 10 element list with input from the user. :)