ahaha~

(defun trip (input)
       (let ((salt
          (subseq (concatenate 'string input "H..")
              1 3)))
         (setf salt (regex-replace-all "[^\.-z]" salt "."))
         (setf salt (translate ":;<=>?@[\\]^_`" "ABCDEFGabcdef" salt))
         (let ((res (crypt input salt)))
           (subseq res (- (length res) 10)))))

I'm writing an imageboard in Common Lisp.

Problem, /prog/?

No problem, have fun.

Also, I implemented Crypt simply by linking to libcrypt with CFFI.

Yeah, a direct port of futallaby.

My inspiration lies mostly in Wakaba. The reason I'm doing it is because I find Wakaba to be a mess when it comes to lower level stuff.

Also, >perl.

03AHJ_VutPbFu_1fd6LVLkYUXDNNZ0TmrAMwaL_uR2FH2bvIjaZkIw_4Q76PSLCeU7z4A6EuLWjldG9n96TnKtTrtV10mV7BLbSXWfTFuvjD5UBI_anjrNuHwLReDncosCLgPlRcpfBO5C

>>3
linking to libcrypt with CFFI
you're mother must be so proud

I implemented
i don't think you know one of these words

Use some BBCode when posting code (either code tags, m tags or something better).

>>7
>arguing over semantics
>``you're''
Oh, the irony.

>>8
I rarely post on these text boards, so I'm unfamiliar with the ``markup language.''

>>10
http://dis.4chan.org/read/prog/1248515378

>>1
Problem
I don't see why we would have anything against it. Lisp is quite popular here, but there have been a few haters coming in from the imageboards that tend to hate on popular things within some community (even if those things may not be popular outside the community).

As for your code, it looks needlessly imperative, I'd write it like this:


(defun crop-string-by-end (string &optional (amount 10))
  (subseq string (- (length string) amount)))

(defun trip (input &optional (salt "H.."))
  (crop-string-by-end
   (crypt input
    (translate ":;<=>?@[\\]^_`" "ABCDEFGabcdef"
     (regex-replace-all "[^\.-z]"
      (subseq (concatenate 'string input salt) 1 3) ".")))))

[code
(defun trip (input)
  (let ((salt
        (subseq (concatenate 'string input "H..")
                1 3)))
    (setf salt (regex-replace-all "[^\.-z]" salt "."))
    (setf salt (translate ":;<=>?@[\\]^_`" "ABCDEFGabcdef" salt))
    (let ((res (crypt input salt)))
      (subseq res (- (length res) 10)))))
[/code]

mfw [code


(defun trip (input)
  (let ((salt
        (subseq (concatenate 'string input "H..")
                1 3)))
    (setf salt (regex-replace-all "[^\.-z]" salt "."))
    (setf salt (translate ":;<=>?@[\\]^_`" "ABCDEFGabcdef" salt))
    (let ((res (crypt input salt)))
      (subseq res (- (length res) 10)))))

>>12
programming in lisp is like programming with a hot metal rod shoved down your urethra, that's the sensation i get

>>12
It really doesn't matter very much, but sure. I try to keep my imperative shit in a lexical scope. I was pretty much just translating directly from the ``checklist'' on wikipedia(lol).

Anyway, my general goal at the moment is to get posting functions(not forms etc) up and running, implementing all I need while i'm doing so(which is quite a lot: SQL, spam check, proxy check, thumbising, tripcodes, secure tripcodes, etc).

there have been a few haters coming in from the imageboards

I'm not from the imageboards but have be very vocal about how Lisp-like languages might be cute in your ivory tower university setting but in the real world they are pretty fucking useless.

>>17
I don't know what ``real world'' is, but if the code works, is maintainable and is fast enough, then it's of use to me, and I have plenty of Lisp code which is of use to me, either written by me or by other people.

>>18
>I don't know what ``real world'' is
Proved >>17's point right there rather effectively.

>>19
Why am I supposed to care what ``real world'' is?
If something works, it works, if not, it doesn't. The term ``real world'' has no actual meaning in this context, it's just a generic buzzword.

>>20
Just because your toy programs work doesn't make Lisp applicable in the ``real world''.

http://en.wikipedia.org/wiki/Deep_Space_1#Remote_Agent

That program was run with Lispworks.

``Real world'' enough for you?

>>14
I am confused? Are you an imageboarder?

http://www.franz.com/success/
``Real world''

>>24
Niche applications, the lot of them.

>>25
And why does this matter?

You could use Lisp to make cookie-cutter web sites and ENTERPRISE management software just as easily, and it's not like there are not enough libraries just for such popular things. You could use it to make some whatever traditional ENTERPRISE software that you'd like, but most such software is already easily implemented tranditionally with existing ENTERPRISE languages and frameworks. There is no incentive for a company to make their own ENTERPRISE software in a language for which they cannot as easily find easily replaceable cogs...programmers. It is indeed a language which is quite suitable for large experimental projects being implemented by small teams in short amounts of time, but don't think for a second that it cannot be used for implementing whatever boring software you could imagine - it is also used to that, although much more rarely compared to popular languages which are known by everyone (for example, SUN was smart to push Java on various educational organizations, and now the market for Java programmers is large, thus it is just good for the picking for large enterprises, especially since it fits their more general business needs).

>>24
http://www.franz.com/success/customer_apps/animation_graphics/squareusa.lhtml
A colossal commercial failure made with a colossal failure as a programming language.

Heterosexual people can't handle nesting of more than 4 parentheses. Hence, all Lispers are faggots.