/prog/ - /prog/ can't count to 100.

Name: Anonymous 2010-11-26 0:56

PROVE ME WRONG.

Name: Anonymous 2010-11-26 1:01

This thread will be mostly back to /b/, please and shitty toy loops anyway. *grabs mapM_*

Name: Anonymous 2010-11-26 1:05

(loop for i to 100 do (print i))

Name: Anonymous 2010-11-26 1:06

>>2
That's the purpose of this thread.

Name: Anonymous 2010-11-26 1:11

(let ((count (lambda (c i j) (if (<= i j) (begin (display i) (newline) (c c (+ 1 i) j)))))) (count count 1 100))

Name: Anonymous 2010-11-26 1:30



i. 100

Name: Anonymous 2010-11-26 1:39



(((((((lambda (g)

        (lambda (c)

          (lambda (a)

            (lambda (h)

              (lambda (f)

                (lambda (i)

                  (when (h i c)

                    (begin (f i)

                           ((((((g g) c) a) h) f) (+ i a))))))))))

      (lambda (g)

        (lambda (c)

          (lambda (a)

            (lambda (h)

              (lambda (f)

                (lambda (i)

                  (when (h i c)

                    (begin (f i)

                           ((((((g g) c) a) h) f) (+ i a)))))))))))

     100)

    1)

   <=)

  (lambda (x)

    (display x)

    (newline)))

 1)

Name: Anonymous 2010-11-26 1:39

print "\n".join(map(str,range(1,101)))

Name: Anonymous 2010-11-26 2:25

& for i in `seq 1 100` ; do echo $i ; done

Name: Anonymous 2010-11-26 4:29

>>7
(((((((((((((())))))))))))))))
))))))))
))))))))))))))))))))))))))
Fucking lisp

Name: Anonymous 2010-11-26 5:17

>>9
seq 1 100 is enough…

Name: Rennis Ditchie 2010-11-26 5:43

for(int i=1; i<101; i++)
System.out.println(i);

Name: Penis Dickie 2010-11-26 5:54

FunctorFactoryFactory functorfactoryfactory = new FunctorFactoryFactory(FunctorFactoryFactory.FunctorFactoryFactory);

FunctoryFactory functorfactory = functorfactoryfactory.MakeFactory(FunctorFactory.LoopFunctorFactory);

Functor loop = functoryfactory.MakeFactory(1, 100);

loop.Start(Functor.LoopFunctor.PrintValueEachLoop);

Name: Anonymous 2010-11-26 6:20

>>7
I think you actually mean

(define make-loop ((lambda (f)

                     (lambda (c)

                       (lambda (o)

                         (lambda (g)

                           (lambda (h)

                             (lambda (i)

                               (lambda (j)

                                 (when (g i j)

                                   (h i)

                                   (f c o g h (o i c) j)))))))))

                     (lambda (f)

                       (lambda (c)

                         (lambda (o)

                           (lambda (g)

                             (lambda (h)

                               (lambda (i)

                                 (lambda (j)

                                   (when (g i j)

                                     (h i)

                                     (f c o g h (o i c) j)))))))))))

(define make-linear-loop (make-loop 1))

(define make-linear-crescent-loop (make-linear-loop +))

(define make-print-function

  (lambda (newline? print-func format-string)

    (lambda (x)

      (print-func (format format-string x))

      (when newline?

        (newline)))))

(define make-linear-crescent-print-loop-n->m (make-linear-crescent-loop (make-print-function #t display "~a")))

(define make-linear-crescent-print-loop-n->m-inclusive (make-linear-crescent-print-loop-n->m <=))

(define make-linear-crescent-print-loop-1->n-inclusive (make-linear-crescent-print-loop-n->m-inclusive 1))

(define make-linear-crescent-print-loop-1->100-inclusive (make-linear-crescent-print-loop-1->n-inclusive 100))

Name: Anonymous 2010-11-26 6:21

>>14
add (make-linear-crescent-print-loop-1->100-inclusive) at the end.

Name: Anonymous 2010-11-26 8:38

mapM_ putStrLn $ sequence [' ':['1'..'9'],['0'..'9']] ++ "100"

Name: Anonymous 2010-11-26 8:41

Goddammit
[code]
mapM_ putStrLn $ sequence [' ':['1'..'9'],['0'..'9']] ++ "100"
[\code]

Name: Anonymous 2010-11-26 8:42

for i in $(seq 1 100) ; do echo "$i: OP is a faggot" ; done

Name: Anonymous 2010-11-26 8:43

WTF? How the fuck did I fail that?

Name: Anonymous 2010-11-26 8:45

Nevermind, I just noticed it.

Name: Anonymous 2010-11-26 9:42

print xrange(1,100)

Name: Anonymous 2010-11-26 10:53

>>21



>>> print xrange(1,100) 

 xrange(1, 100)

What a disgrace.

Name: Anonymous 2010-11-26 11:26

>>22
Not to mention that it wouldn't fucking work anyway, because that would only count to 99.

Name: Anonymous 2010-11-27 23:18

Name: Anonymous 2010-11-29 6:14

>>14

ENTERPRISE-QUALITY LISP

Name: Anonymous 2010-11-29 7:25

1>:52*:*1+\-#v_v

 ^, +4*23+1.:< @

Name: Anonymous 2010-11-29 8:16

[1..100]

Name: Anonymous 2010-11-29 8:25

seq 1 100

Name: Anonymous 2010-11-29 9:33

>>28
see
>>11

Name: Anonymous 2010-11-29 10:14

xrange(1, 101) durr hurr hurr

Name: Anonymous 2010-11-29 11:08

>>30

You mena range(1,101)

Name: Anonymous 2010-11-29 11:38

>>16



    Couldn't match expected type `[Char]' against inferred type `Char'

      Expected type: [String]

      Inferred type: [Char]

    In the second argument of `(++)', namely `"100"'

    In the second argument of `($)', namely

        `sequence [' ' : ['1' .. '9'], ['0' .. '9']] ++ "100"'

Name: Anonymous 2010-11-29 16:08

dc -e "1[p1+d100!<C]dsCx"

Name: Anonymous 2010-11-29 19:12

One-Hundred.

Name: Anonymous 2010-11-30 18:19

don't mind me, just covering that puddi bullshit.

Name: Anonymous 2010-11-30 19:14

zipWith ($) (map (foldr (.) id . (flip replicate (1+))) [0..99]) $ repeat 1

Name: Anonymous 2010-11-30 19:19

<-- CHECK 'EM!

Name: Anonymous 2010-11-30 19:46

PUDDI

Name: Anonymous 2010-11-30 20:09

<?php



// simple loop function

// -- copyright ben jonson 2010



function loop_to_hundred($lsthv) {

 /*for ($i = 0; $i <= 100; i++) {*/

 for ($i = $lsthv + 1; $i <= 100; i++) {

       print("number #");

       print($i);

  }

}



$startoftheloop = 1;



print("<html><tr>");

loop_to_hundred($startoftheloop);

print("</html></tr>");



?>

Name: Anonymous 2010-11-30 21:27



for(1..100) {

print $_;

}

Newer Posts

/prog/ can't count to 100.

1 Name: Anonymous 2010-11-26 0:56

2 Name: Anonymous 2010-11-26 1:01

3 Name: Anonymous 2010-11-26 1:05

4 Name: Anonymous 2010-11-26 1:06

5 Name: Anonymous 2010-11-26 1:11

6 Name: Anonymous 2010-11-26 1:30

7 Name: Anonymous 2010-11-26 1:39

8 Name: Anonymous 2010-11-26 1:39

9 Name: Anonymous 2010-11-26 2:25

10 Name: Anonymous 2010-11-26 4:29

11 Name: Anonymous 2010-11-26 5:17

12 Name: Rennis Ditchie 2010-11-26 5:43

13 Name: Penis Dickie 2010-11-26 5:54

14 Name: Anonymous 2010-11-26 6:20

15 Name: Anonymous 2010-11-26 6:21

16 Name: Anonymous 2010-11-26 8:38

17 Name: Anonymous 2010-11-26 8:41

18 Name: Anonymous 2010-11-26 8:42

19 Name: Anonymous 2010-11-26 8:43

20 Name: Anonymous 2010-11-26 8:45

21 Name: Anonymous 2010-11-26 9:42

22 Name: Anonymous 2010-11-26 10:53

23 Name: Anonymous 2010-11-26 11:26

24 Name: Anonymous 2010-11-27 23:18

25 Name: Anonymous 2010-11-29 6:14

26 Name: Anonymous 2010-11-29 7:25

27 Name: Anonymous 2010-11-29 8:16

28 Name: Anonymous 2010-11-29 8:25

29 Name: Anonymous 2010-11-29 9:33

30 Name: Anonymous 2010-11-29 10:14

31 Name: Anonymous 2010-11-29 11:08

32 Name: Anonymous 2010-11-29 11:38

33 Name: Anonymous 2010-11-29 16:08

34 Name: Anonymous 2010-11-29 19:12

35 Name: Anonymous 2010-11-30 18:19

36 Name: Anonymous 2010-11-30 19:14

37 Name: Anonymous 2010-11-30 19:19

38 Name: Anonymous 2010-11-30 19:46

39 Name: Anonymous 2010-11-30 20:09

40 Name: Anonymous 2010-11-30 21:27

Name: Anonymous 2010-11-26 0:56

Name: Anonymous 2010-11-26 1:01

Name: Anonymous 2010-11-26 1:05

Name: Anonymous 2010-11-26 1:06

Name: Anonymous 2010-11-26 1:11

Name: Anonymous 2010-11-26 1:30

Name: Anonymous 2010-11-26 1:39

Name: Anonymous 2010-11-26 1:39

Name: Anonymous 2010-11-26 2:25

Name: Anonymous 2010-11-26 4:29

Name: Anonymous 2010-11-26 5:17

Name: Rennis Ditchie 2010-11-26 5:43

Name: Penis Dickie 2010-11-26 5:54

Name: Anonymous 2010-11-26 6:20

Name: Anonymous 2010-11-26 6:21

Name: Anonymous 2010-11-26 8:38

Name: Anonymous 2010-11-26 8:41

Name: Anonymous 2010-11-26 8:42

Name: Anonymous 2010-11-26 8:43

Name: Anonymous 2010-11-26 8:45

Name: Anonymous 2010-11-26 9:42

Name: Anonymous 2010-11-26 10:53

Name: Anonymous 2010-11-26 11:26

Name: Anonymous 2010-11-27 23:18

Name: Anonymous 2010-11-29 6:14

Name: Anonymous 2010-11-29 7:25

Name: Anonymous 2010-11-29 8:16

Name: Anonymous 2010-11-29 8:25

Name: Anonymous 2010-11-29 9:33

Name: Anonymous 2010-11-29 10:14

Name: Anonymous 2010-11-29 11:08

Name: Anonymous 2010-11-29 11:38

Name: Anonymous 2010-11-29 16:08

Name: Anonymous 2010-11-29 19:12

Name: Anonymous 2010-11-30 18:19

Name: Anonymous 2010-11-30 19:14

Name: Anonymous 2010-11-30 19:19

Name: Anonymous 2010-11-30 19:46

Name: Anonymous 2010-11-30 20:09

Name: Anonymous 2010-11-30 21:27