/prog/ - lame as fuck

Name: Anonymous 2009-08-12 10:30

Wow this thread is lame as fuck. Its filled with the same guy posting to keep his thread alive. Fuckin pathetic.

Name: UMH memesmith !gNlkr4vCuc 2009-08-13 2:11

>>8
Fuck you so very, very hard. Since the very first time I made that post in the VB thread I have not quoted its contents a single time ever.

I am bitter about UMH because I have tried to say clever things on /prog/ before, but they never became memes, whereas a throwaway one-liner took off in popularity and inexplicably went out of control. You'd be bitter too.

Name: Anonymous 2009-08-13 2:30

>>11
But you have no problem dropping in to encourage it with your adorable `rants'.

Name: Anonymous 2009-08-13 2:57

Time to make this thread more /prog/ related:

Mr. UMH memesmith, I found that the UMH meme is a suitable test case for a toy program I've written, so I'll post it here:



;;; SPLIT-SEQUENCE package is required

(asdf:oos 'asdf:load-op 'split-sequence)



(defun split-by-delims (delims str &rest rest)

  (apply #'split-sequence:split-sequence-if #'(lambda (x) (member x delims)) str rest))



(defun string->char-list (str)

  (loop for char across str

       collect char))



(defun split-by-delim-string (delims str &rest rest)

  (apply #'split-by-delims (string->char-list delims) str rest))



(defun sort-chars (str)

  (sort (copy-seq str) #'char<))



(defun find-anagrams (s)

  (let ((words (split-by-delim-string " :,.!" s :remove-empty-subseqs t))

    (sorted-words (make-hash-table :test #'equal)) ; string compare

    result-list)

    (mapc #'(lambda (x) (pushnew x (gethash (sort-chars (string-upcase x)) 

                        sorted-words)

                 :test #'string-equal)) ; case insensitive 

      words)

    (maphash #'(lambda (key val)

         (declare (ignore key))

         (unless (< (length val) 2)

           (push (nreverse val) result-list)))

         sorted-words)

    (nreverse result-list)))



(find-anagrams "Hello there, OLLEH! How have you been doing lately? 

                > my dof... ish dead ;_; 

                U MENA HASKALL!? 

                > Yes, sir. I mean Haskell.")

;=>(("Hello" "OLLEH") ("MENA" "mean"))

The FIND-ANAGRAMS function is supposed to find anagrams in the input string and return a list of groups (lists) of all the instances of these anagrams: identical anagrams belong to the same group.

It'd be interesting to see a Haskell implementation of this, I wonder if it would be more succinct.

Name: Anonymous 2009-08-13 4:04

>>11
Proove me wrong.

Name: UMH memesmith 2009-08-13 4:10

>>14
>>11-chan is lying desu yo~~
I am the real one desu~
and I made every one of those posts~~

Name: Anonymous 2009-08-13 4:26

UMH is not a meme, you fucking faggot.
quit trying to force this unfunny bullshit

Name: Anonymous 2009-08-13 4:31

This whining about HMA or UMH is more annoying than HMA or UMH have ever been.

Name: Anonymous 2009-08-13 4:32

>>16
Hello UMH memesmith.

Name: Anonymous 2009-08-13 5:34

>>1
Stop the bullshit, dude. You're a little bitch behind a keyboard and nothing more. Your meme will never be accepted and you're going to die alone and forgotten and not even your family will miss you.

You're an impotent little coward who's too fucking stupid and deranged to realize that you're sick in the head.

Name: Anonymous 2009-08-13 5:43

>>16
unhax my hanus!

Name: Anonymous 2009-08-13 5:46

UMH memesmith is tsundere for UMH.

Name: Anonymous 2009-08-13 5:49

>>20
I'm sorry, but once it has been haxxed it cannot be unhaxxed. It's a one-way function

Name: Anonymous 2009-08-13 6:22

>>22
haxxxed :<

Name: FUCK 2009-12-01 4:16

4CHAN AND IT'S MEMES FUCKING SUCK. BUNCH OF FUCKING LAMERS. RICKROLLING? LOLCATS? FUCK YOU. GET A LIFE, FUCKERS.

Name: Anonymous 2009-12-01 5:54

>>13

import Control.Arrow

import Data.Char

import Data.List

import qualified Data.Map as M

import "split" Data.List.Split



main = print . anagrams . wordsBy (`elem` " :,.!") $ text



anagrams = filter (not . null . tail)

         . M.elems

         . M.fromListWith union

         . map (sort . map toLower &&& return)



text = "Hello there, OLLEH! How have you been doing lately? \

       \ > my dof... ish dead ;_; \

       \ U MENA HASKALL!? \

       \ > Yes, sir. I mean Haskell."

Name: Anonymous 2010-03-02 12:14

bump

Name: Anonymous 2010-03-02 12:15

cool meme bro

Name: Anonymous 2010-03-05 13:30

>>27
cool [x] bro
Back to /b/, please

Name: Anonymous 2010-09-24 12:43

>>28
Fuck off, ``faggot''.

Name: Anonymous 2010-12-21 7:31

Newer Posts

lame as fuck

1 Name: Anonymous 2009-08-12 10:30

11 Name: UMH memesmith !gNlkr4vCuc 2009-08-13 2:11

12 Name: Anonymous 2009-08-13 2:30

13 Name: Anonymous 2009-08-13 2:57

14 Name: Anonymous 2009-08-13 4:04

15 Name: UMH memesmith 2009-08-13 4:10

16 Name: Anonymous 2009-08-13 4:26

17 Name: Anonymous 2009-08-13 4:31

18 Name: Anonymous 2009-08-13 4:32

19 Name: Anonymous 2009-08-13 5:34

20 Name: Anonymous 2009-08-13 5:43

21 Name: Anonymous 2009-08-13 5:46

22 Name: Anonymous 2009-08-13 5:49

23 Name: Anonymous 2009-08-13 6:22

24 Name: FUCK 2009-12-01 4:16

25 Name: Anonymous 2009-12-01 5:54

26 Name: Anonymous 2010-03-02 12:14

27 Name: Anonymous 2010-03-02 12:15

28 Name: Anonymous 2010-03-05 13:30

29 Name: Anonymous 2010-09-24 12:43

30 Name: Anonymous 2010-12-21 7:31