Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon.

Pages: 1-4041-

/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 $_;
}

Name: Anonymous 2010-11-30 21:32


for(int n = 1; n < 101; n++) {
    System.out.println(n);
}

Name: Anonymous 2010-11-30 21:39

main = IO.putStrLn $ cycle "PUDDI"

Name: Anonymous 2010-12-01 0:14

>>40
Interesting. In what conditions does $_ get set?

Name: Anonymous 2010-12-01 2:09

>>40
>>43
VALID PERL CODE
Thusly:
perl -e 'for (1..100) {print "$_\n";}'

Name: VIPPER 2010-12-01 4:11

Bump this shit for the sperglord is at it again
JEWS

Name: VIPPER 2010-12-01 4:12

>>45
oops, im used to sage.

Name: VIPPER 2010-12-01 4:19

WTF!!

This "PUDDI" shit is even on SAOVQ! WTF!!!
What kind of sick sperglord does that!

Name: Anonymous 2010-12-01 5:17

>>43
All of them
also >>40
print for 1..100;

Name: Anonymous 2010-12-01 5:25

10 LET A = 1
20 PRINT A
30 LET A = A + 1
40 IF A > 100 THEN END
50 GOTO 20

Name: sage 2010-12-01 6:51

Guys what is the joke with opiates? I know its a drug thing! But I just don't get the /prog/ reference to it!

Name: Anonymous 2010-12-01 7:50

>>50
Not a joke. Just some spam.

Name: Anonymous 2010-12-01 10:52

>>51
OP hates

Name: Anonymous 2011-02-25 22:11







dicks

Name: Anonymous 2011-02-25 22:15







dicks

Name: Anonymous 2011-02-25 22:15




dicks
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -