Fate/Extra is a waste of my life

[Anonymous No.]

(define (calc-moveset attacks success)
(if (not (null? attacks))
(cons (calc-attack (car attacks) (car success)) (calc-moveset (cdr attacks) (cdr success)))))

(define (calc-attack attack success)
(if (char=? #\t success) attack
(if (char=? #\y success) (if (char=? attack #\a) #\b
(if (char=? attack #\b) #\g
#\a))
(if (char=? attack #\a) #\g
(if (char=? attack #\b) #\a
#\b)))))

[Anonymous No.]

Haskell is cleaner than Lisp

[ZUN !barYV1VtIA No.]

>>8209198

Dat battle system.

[Anonymous No.]

Fuck, you made me remember that paper about optimization of logarithms to find prime numbers that I have to finish in the before the next monday yet I didn't start, I'm pretty much dead, but I don't know if kill myself or kill my teacher.

[Anonymous No.]

<?php include ("get_out.php");
echo ("Get out of /jp/");
?>

[Tokiko No.]

>>8209244
> PHP

ahaha 7/10

[Anonymous No.]

>>8209211
Go back to Reddit, Xarn.

[Anonymous No.]

>>8209291

Fancy meeting you here.

[Anonymous No.]

>>8209293
But he's right.

[Anonymous No.]

do
{
cout<< "Get out!";
}
while(OP == fag);

[Anonymous No.]

puts("Suck my cock, dude\n");

[Anonymous No.]

>>8209291
>using hipster bullshit programming languages instead

I'll be enjoying my PHP, retard.

[Anonymous No.]

>>8209409
s/hipster bullshit/good/
PROTIP: PHP wasn't the first "Web language" and just because it's popular does not mean it's good. In fact it's easily one of the worst languages out there. It's like writing a C program entirely with the preprocessor while stabbing yourself in the cock.

[Anonymous No.]

>>8209415
Hipster.

[Anonymous No.]

Why don't you put the attacks and successes together in the same list? That way you can just use map instead of consing the result by hand.

Also, my Lisp dialect is cooler than yours. You've probably never heard of it.

(defn calc-attack [attack success]
  (condp = success
    \t attack
    \y (condp = attack
         \a \b
         \b \g
         \a)
    (condp = attack
      \a \g
      \b \a
      \b)))

(defn calc-moveset [attacks-and-successes]
  (map (partial apply calc-attack)
    attacks-and-successes))