Please dont take this seriously guys its just a dumb meme I haven’t written a single line of code in half of these languages

  • neidu2@feddit.nl
    link
    fedilink
    arrow-up
    92
    ·
    edit-2
    8 months ago

    Perl:

    Problem -> $ @ % <=> <> =()= => ; qw() ])} select(undef, undef, undef, 0.25) =~ tr/.?\w\sREg3xfr0mhe|l/foo/g; $|++ &homebrewedFunction(%$ref, $_ , @_ ) -> solution

    Source: I mainly code in perl. I like it, but I’ll be the first to admit that it’s not a beautiful language.

    I was about to make an entry for lisp here, but I don’t have enough parentheses to draw the path to the solution.

    • MonsiuerPatEBrown@reddthat.com
      link
      fedilink
      English
      arrow-up
      38
      arrow-down
      1
      ·
      edit-2
      8 months ago

      https://www.foo.be/docs/tpj/issues/vol4_4/tpj0404-0015.html

      The Perl Poetry Contest - The Perl Journal, Winter 1999

      #!/usr/bin/perl
      #
      # asylum.pl
      # by Harl

      close (youreyes);
      bind (yourself, fast);

      while ($narcosis) {
         exists $to($calm);
         not calm;
      }

      accept the, anesthesia;
      seek the, $granted, $asylum’
      and wait;

      stat ically;

      unlink and listen (in, $complicity);

      for (a, little) {
         system (“sync hronicity”);
      }

    • mindbleach@sh.itjust.works
      link
      fedilink
      arrow-up
      25
      arrow-down
      1
      ·
      8 months ago

      Perl is write-only code. Larry Wall raised a monkey’s paw and asked for a language that works the way programmers want. So most Perl is the first thing someone tried, unfiltered by rigid syntax putting your thoughts in order, compiler warnings bringing side effects to mind, or even names forcing you to decide what a variable is. An uncommented Perl script is raw brain patterns displayed as ASCII.

      Thank god it runs like crap. We’d be in so much trouble if it was fast. Optimized C isn’t exactly gorgeous, but any project that compiles proves someone looked at the code more than once.

      • evranch@lemmy.ca
        link
        fedilink
        arrow-up
        11
        ·
        8 months ago

        I love the term “write-only code”, it’s perfect. I used to love Perl as it felt like it flowed straight from my brain into the keyboard. What a free and magical language.

        So it turned out I had ADHD. Took meds, went back to C/++ with renewed appreciation, haven’t touched Perl since as it horrifies me to look at it. What a nightmare of dangling references and questionable typing. Any language that allows you to cast a string to a function and call it really needs to sit down and think about what it’s doing.

        • mindbleach@sh.itjust.works
          link
          fedilink
          arrow-up
          6
          ·
          8 months ago

          So it turned out I had ADHD.

          Genuine LOL. Yeah… yeah, that’s Perl in a nutshell. Creating Perl: ‘why aren’t all languages like this?!’ Editing Perl: ‘oh.’

          • evranch@lemmy.ca
            link
            fedilink
            arrow-up
            1
            ·
            8 months ago

            As I said,

            C/++ with renewed appreciation

            No such thing as eval in non-interpreted languages. Unless you’re crazy enough to invoke the compiler and exec() the result.

            I used eval too in my Perl days which is why I specifically called it out. IMO any time you see eval used there should be another, more proper way to do it.

            • CapeWearingAeroplane@sopuli.xyz
              link
              fedilink
              arrow-up
              1
              ·
              edit-2
              8 months ago

              I was joking, and definitely agree with you. I don’t think I’ve used eval since my first programming course in uni.

              Edit: Except for monkey hacks for laughs of course.

    • palordrolap@kbin.social
      link
      fedilink
      arrow-up
      11
      ·
      edit-2
      8 months ago

      Over the top tone: “Pretty sure that won’t compile. $EVAL_ERROR modulo what you get from the filehandle called = isn’t an lvalue that can be put through the Goatse operator that I’m aware of.”

      But seriously(?), I’m almost certain that’s not how that would be parsed. = isn’t a valid bareword, so Perl would choke on the spaceship operator not being a term… I think.

      After testing… It’s worse. I think it’s parsing <> as the glob operator and = as a filespec.

      For those who don’t know Perl:

      Because of its appearance, <=> really is called the spaceship operator (at least, when it can be parsed as an operator and not whatever happened above).

      =()= by comparison has unofficially been called Goatse. If you don’t know what Goatse is, find out at your own risk. If you do know, you can see why this particular pseudo-operator was given that name.

      And if you’re still reading, =()= is a pseudo-operator because it’s not actually parsed as part of the syntax. It’s literally an assignment operator = followed by an empty list () followed by another assignment operator =, providing list context to the outside of the equals signs that wouldn’t otherwise be there.

      [Why are you still still reading?] Context is important in Perl. If a function returns a list of values (which is something Perl functions can do) and you try to store the result in a scalar variable, replacing the usual = with =()= will store the number of elements returned rather than the last element of the list.

      • neidu2@feddit.nl
        link
        fedilink
        arrow-up
        8
        ·
        edit-2
        8 months ago

        It’s not supposed to be compilable. It’s more intended as a list of weird looking (but valid and useful) perl stuff.

        As for the goatse operator, I’ve mostly used it for counting amount of regex matches.

        Oh, and I forgot the diamond operator. Added.

    • msage@programming.dev
      link
      fedilink
      arrow-up
      11
      arrow-down
      1
      ·
      8 months ago

      I was hired twice to write Perl, both times switched my department to something else after a few years.

      Perl is good for command line processing, and absolutely god awful read-only magic hacks. Nothing else.

    • I Cast Fist@programming.dev
      link
      fedilink
      arrow-up
      3
      ·
      8 months ago

      I personally never understood how anyone could find Perl appealing or even “good” to program in, probably because I could never understand wtf the code was meant to do