chore: reformat code

Author: SuperFola

List.ark

@@ -500,8 +500,7 @@
 # (print (list:none [4 5 6] f))  # true
 # =end
 # @author https://github.com/SuperFola
-(let none (fun (_L _f)
-  (not (any _L _f))))
+(let none (fun (_L _f) (not (any _L _f))))
 
 # @brief Count the number of elements in a list that match a condition
 # @param _L the list to work on

String.ark

@@ -116,10 +116,9 @@
       (let _len (len _str))
       (while (< _i _len) {
         (let _c (@ _str _i))
-        (if (and (!= _c " ") (!= _c "\t") (!= _c "\n") (!= _c "\r"))
-          {
-            (set _all_spaces false)
-            (set _i _len) })
+        (if (and (!= _c " ") (!= _c "\t") (!= _c "\n") (!= _c "\r")) {
+          (set _all_spaces false)
+          (set _i _len) })
         (set _i (+ 1 _i)) })
       _all_spaces })))
 
@@ -326,11 +325,11 @@
 
   (while (< _index (len _list)) {
     (set _output (+
-        _output
-        (toString (@ _list _index))
-        (if (!= _index (- (len _list) 1))
-          _delim
-          "")))
+      _output
+      (toString (@ _list _index))
+      (if (!= _index (- (len _list) 1))
+        _delim
+        "")))
     (set _index (+ 1 _index)) })
   _output }))
 
@@ -339,7 +338,10 @@
   (if (emptyOrWhitespace? _str)
     ""
     {
-      (mut _i (if (= 1 _dir) 0 (- (len _str) 1)))
+      (mut _i
+        (if (= 1 _dir)
+          0
+          (- (len _str) 1)))
       (mut _whitespaces (or (= (@ _str _i) " ") (= (@ _str _i) "\t") (= (@ _str _i) "\n") (= (@ _str _i) "\r")))
 
       (while (and _whitespaces (< _i (len _str)) (>= _i 0)) {
@@ -359,8 +361,7 @@
 # (print (string:lstrip " a b c"))  # "a b c"
 # =end
 # @author https://github.com/SuperFola
-(let lstrip (fun (_str)
-  (__strip_in_dir _str 1)))
+(let lstrip (fun (_str) (__strip_in_dir _str 1)))
 
 # @brief Removes whitespaces from the right side of a string
 # @details The original string isn't modified
@@ -369,8 +370,7 @@
 # (print (string:rstrip " a b c     "))  # " a b c"
 # =end
 # @author https://github.com/SuperFola
-(let rstrip (fun (_str)
-  (__strip_in_dir _str -1)))
+(let rstrip (fun (_str) (__strip_in_dir _str -1)))
 
 # @brief Removes whitespaces from both sides of a string
 # @details The original string isn't modified
@@ -379,8 +379,7 @@
 # (print (string:strip " a b c    "))  # "a b c"
 # =end
 # @author https://github.com/SuperFola
-(let strip (fun (_str)
-  (rstrip (lstrip _str))))
+(let strip (fun (_str) (rstrip (lstrip _str))))
 
 # @brief Strip the margin of a multiline string
 # @param _str multiline string, margin is (space)*(|)