Fix #79

[lehitoskin]

Whenever we find an rdf:li that contains more than one element, run string-append and move on.

[IonoclastBrigham]

Seems like a good opportunity extract out the common parts of the (if len (apply string-append ... pattern into a function. Could possibly leverage some currying or higher-order function goodness to make it fit across the handful of variations you've got.

[IonoclastBrigham]

map seems like a better choice in this case.

[IonoclastBrigham]

So if we're iterating over a list, and outputting a new list that's the same length, that is starting to look a lot like a candidate for map instead of for/fold. Then we don't have to manage an explicit accumulator or worry about manually appending anything.

Consider the following snippet, which is pretty artificial, but incorporates all the same basic moving parts as rdf:li-fixer:

#lang racket

(map (λ (elem)
       (if (> (length elem) 1)
           (apply string-append elem)
           elem))
     (map (λ (num) (list "0" (number->string num)))  (list 1 2 3 4)))

[IonoclastBrigham]

Ah, yes. I like this better.

[IonoclastBrigham]

👍