Sync

Task/Tokenize-a-string/Clojure/tokenize-a-string.clj

@@ -1 +1 @@
-(apply str (interpose "." (seq (.split #"," "Hello,How,Are,You,Today"))))
+(apply str (interpose "." (.split #"," "Hello,How,Are,You,Today")))

Task/Tokenize-a-string/Logtalk/tokenize-a-string-1.logtalk

@@ -0,0 +1,22 @@
+:- object(spliting).
+
+    :- public(convert/2).
+    :- mode(convert(+atom, -atom), one).
+
+    convert(StringIn, StringOut) :-
+        atom_chars(StringIn, CharactersIn),
+        phrase(split(',', Tokens), CharactersIn),
+        phrase(split('.', Tokens), CharactersOut),
+        atom_chars(StringOut, CharactersOut).
+
+    split(Separator, [t([Character| Characters])| Tokens]) -->
+        [Character], {Character \== Separator}, split(Separator, [t(Characters)| Tokens]).
+    split(Separator, [t([])| Tokens]) -->
+        [Separator], split(Separator, Tokens).
+    split(_, [t([])]) -->
+        [].
+    % the look-ahead in the next rule prevents adding a spurious separator at the end
+    split(_, []), [Character] -->
+        [Character].
+
+:- end_object.

Task/Tokenize-a-string/Logtalk/tokenize-a-string-2.logtalk

@@ -0,0 +1,3 @@
+| ?- spliting::convert('Hello,How,Are,You,Today', Converted).
+Converted = 'Hello.How.Are.You.Today'
+yes

Task/Tokenize-a-string/Maxima/tokenize-a-string.maxima

@@ -0,0 +1,2 @@
+l: split("Hello,How,Are,You,Today", ",")$
+printf(true, "~{~a~^.~}~%", l)$

Task/Tokenize-a-string/Perl-6/tokenize-a-string-1.pl6

@@ -0,0 +1 @@
+'Hello,How,Are,You,Today'.split(',').join('.').say;

Task/Tokenize-a-string/Perl-6/tokenize-a-string-2.pl6

@@ -0,0 +1 @@
+say join '.', split ',', 'Hello,How,Are,You,Today';

Task/Tokenize-a-string/Racket/tokenize-a-string.rkt

@@ -1,5 +1,3 @@
 #lang racket
-
-(for ([s (regexp-split #rx"," "Hello,How,Are,You,Today")])
-  (printf "~a." s))
-(newline)
+(string-join (string-split "Hello,How,Are,You,Today" ",") ".")
+;; -> "Hello.How.Are.You.Today"