Berkeley CSUA MOTD:1998:July:22 Wednesday <Tuesday, Thursday>
Berkeley CSUA MOTD
1998/7/22 [Academia/Berkeley/CSUA] UID:14361 Activity:nil
                        Welcome to Soda
1998/7/22 [Uncategorized] UID:14362 Activity:nil
5/19    TOTAL Hosersness.
          3772  xxxxxx    (/usr3)        2663  xxxxxx
                \_find . -name \* -exec compress {} \;
          3750  xxxxxx    (/usr3)        2619  xxxx
          3105  xxxxxx    (/usr3)        2609  xxx
          2851  xxxxxxxx                 2589  xxxxx
          2680  xxxxx     (/usr3)        2505  xx
1998/7/22 [Computer/SW/Unix] UID:14363 Activity:high
5/18    In how many languages can you say "stick your head in a pig"?
        Collect them all here and we shall rival the x = 3 list...

        UNIX csh: head $user >> /dev/pig
        60a OOP Scheme: (ask you 'insert-head pig)
        C:   insert(Listtype pig, Listelement yourhead);
         [This totally misses the point.  It's not OO
          or nearly as abstract as ~xxxxxxxx/pig.c]

                                is better than
                    ask2(you, stick, "head", pig);
                /* really the same as...
                   you->stick(you, "head", pig);
                        [NOT.  Try actually evaluating that.]
                   See ~xxxxxxxx/pig.c for details..... */
                Ever hear of varargs, Dan?  I thought not.
                These still pale compared to the old vanilla:

                       (*(you->insert))(head, pig)

        C++:    you->insert(head, pig); /* note the simpler notation */
                                                Note your mom...
                                                        \_ note my grandmother
        perl:   $pig = $body{head}  <--- BZZT!  Wrong.  Try...
                $body_part_location{$you, "head"} = $pig;
        FMPL:   ask(~pig, be_stuck(ask(.#self, head)))
        FMPL-SFG: pig's be_stuck(.self's head)
        fcl:    if pig is somewhat available
                    then locality(you.head, pig) is very high.
        forth:  pig you head @ !
        CL:     (setf (location (you head)) pig)
        PostScript:     /stick-in-pig {/pig exch def} def
                        /head stick-in-pig
        TCL:    proc stickit {head} {
                        set ${pig} [list ${pig} ${head}]
                        return ${pig}
        TCL#2:  proc stickit head {
                        uplevel #0 "lappend pig $head"
        OOScheme: (define head
                    (let ((contents nil))
                     (lambda (m . arg)
                        (cond ((eq? m 'stick)
                                (set! contents (car arg)))
                              (else (set! contents nil))))))
                  (head 'stick pig)
        Scheme: (define (stick pig head)
                           (lambda (c)
                                 (c (cons head pig)))))
        Kodiak: (a pig p1
                        (contents (a head h1)))
        Prolog: stick(H,P) :- in(H,P), !.
        FX90: (define-datatype container
                (pigholder->container object))
              (define-datatype holden
                (pair->holden container object))
              (match (pigholder->container pig)
                ((pigholder->container~ c) (pair->holden
                                               (pigholder->container c)
                                               (head->object #u))))
        680x0:  move    #PIG,D0
                swap    D0
                move    #HEAD,D0
                swap    D0
                move.L  D0,A7
        Z80:    LD      DE,#PIG
                LD      HL,#HEAD
                LD      BC,#$FFFF
        Cluless:  head:= [head insert pig];
        UnterMud: actor.$head = pig.$body
        Basica: <deleted>
        Postquel: retrieve into pig (person.head)
                                where = "xxxxxxxx"
        AWK: awk '{ pig += $person.head } END { print pig }'
                (defun new-world()
                  (clear-db 'db)
                  (make-world '((is-receptacle pig) (is-body-part head)
                      (at nowhere-special1 you) (at nowhere-special2 pig))))

                (setf *ops* (list (make-op
                             :name '(goto ?obj)
                             :pre  '((at ?loc you) (at ?loc ?obj))
                             :add  '((at ?obj you))
                             :del  '((at ?loc you)))
                  (make-op   :name '(stick ?body-part ?obj)
                             :pre  '((at ?obj you)
                                     (is-receptacle ?obj)
                                     (is-body-part ?body-part))
                             :add  '((is-inside ?obj ?body-part))
                             :del  '((have ?obj)))))

          (Mail blojo if you want a transcript of this code actually working.)

        OO91: "Compiler error.  Compilation aborted."

        Object Oriented Cobol: [solution deleted by author in the intrest
                                of good taste]
        Object C:

                  Isn't this getting a bit long?
                        You obviously haven't seen x=3.

        Fortran: STICK('Head', 'Pig', 'You')

You have new mail.
1998/7/22 [Uncategorized] UID:14364 Activity:nil
                             Welcome to HappySoda
1998/7/22 [Uncategorized] UID:14365 Activity:high
You have new mail.
\_ fucking moron.
1998/7/22-23 [Uncategorized] UID:14366 Activity:moderate
07/22   I told you to stay away from Bessie.
        \_ But Bessie was so god damn good.. where else can you get cheap
           thrills for $4.95 a pop?
1998/7/22-24 [Reference/Religion] UID:14367 Activity:high
7/20    Boredcast Message from soda!kaychng (ttyPr) at 19:29 ...

        by the way i'm not racist...
        i eat out my old roomate who's white...
        well actually he's jews but he's the coolest
        guy I have never met.
        \_ I ate a Chinese Orthodox Jew once.. Mmm.. Jewtastic...
1998/7/22-23 [Uncategorized] UID:14368 Activity:nil
7/22    bang zoom to the moon, ethel!
1998/7/22-23 [Uncategorized] UID:14369 Activity:moderate
1998/7/22-23 [Uncategorized] UID:14370 Activity:nil
7/21    Any recommendations for cheap local sources for custom t-shirts in
        small quantities (1-5), 1 color?  I am interested in some shirts for
        personal use, not for an organization. -- schoen
        \_ Anywhere but Inky Fingers.
        \_ Cinder Block in Oakland - 658-2917 - danh
1998/7/22-23 [Computer/SW/Languages/C_Cplusplus, Computer/Networking] UID:14371 Activity:moderate
7/21    Is there some C/C++ library that allows you to interfact with
        \_ libsocket++
           \_ what are the include file(s)?
        \_ libace ( see )
        \_ was that "interact" or "interface"?
           \_ does it matter????  just fuck.. damnit..
        |_ Yes.  Many.  What platform?
1998/7/22 [Health] UID:14372 Activity:nil 80%like:14373
7/77    h0zer heart sodomy
1998/7/22-23 [Health] UID:14373 Activity:nil 80%like:14372
7/77    ]<(HA/VG heart sodomy
2018/03/17 [General] UID:1000 Activity:popular
Berkeley CSUA MOTD:1998:July:22 Wednesday <Tuesday, Thursday>