From 71d8988f1a106514d20761cd254d0a83ac71272a Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Thu, 13 Jan 2022 15:07:20 +0100
Subject: [PATCH] parse_comment: do concatenation in reverse

---
 src/babillard.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/babillard.ml b/src/babillard.ml
index 4944653..a303709 100644
--- a/src/babillard.ml
+++ b/src/babillard.ml
@@ -298,11 +298,11 @@ let parse_comment comment =
       List.fold_left
         (fun (acc_words, acc_cited_posts) w ->
           match handle_word w with
-          | w, Some cited_id ->
-            (acc_words @ [ w ], acc_cited_posts @ [ cited_id ])
-          | w, None -> (acc_words @ [ w ], acc_cited_posts) )
+          | w, Some cited_id -> (w :: acc_words, cited_id :: acc_cited_posts)
+          | w, None -> (w :: acc_words, acc_cited_posts) )
         ([], []) words
     in
+    let words = List.rev words in
     let line = String.concat (String.make 1 ' ') words in
     (line, cited_posts)
   in
@@ -314,9 +314,10 @@ let parse_comment comment =
     List.fold_left
       (fun (acc_lines, acc_cited_posts) l ->
         let line, cited_posts = handle_line l in
-        (acc_lines @ [ line ], acc_cited_posts @ cited_posts) )
+        (line :: acc_lines, cited_posts @ acc_cited_posts) )
       ([], []) lines
   in
+  let lines = List.rev lines in
   (*insert <br>*)
   let comment = String.concat "\n<br>" lines in
   (* remove duplicate cited_id *)