Family Day update

Task/String-length/BASIC/string-length-2.basic

@@ -1,2 +1,2 @@
 10 INPUT a$
-20 PRINT LEN(a$)
+20 PRINT LEN a$

Task/String-length/BASIC/string-length-3.basic

@@ -1,2 +1,8 @@
-10 INPUT A$
-20 PRINT LEN(A$)
+10 INPUT a$
+20 LET b$=""
+30 FOR x=1 TO LEN a$
+40 LET k=CODE a$(x)
+50 IF k<32 OR k>164 THEN GOTO 70
+60 LET b$=b$+a$(k)
+70 NEXT x
+80 PRINT LEN b$

Task/String-length/BASIC/string-length-4.basic

@@ -1,2 +1 @@
-100 INPUT PROMPT "String: ":TX$
-110 PRINT LEN(TX$)
+10 LET a$=CHR$ 111+CHR$ 8+CHR$ 21+CHR$ 1+CHR$ 34

Task/String-length/BASIC/string-length-5.basic

@@ -0,0 +1,5 @@
+10 INPUT a$
+20 CLS
+30 PRINT a$;
+40 LET x=PEEK 23688: LET y=PEEK 23689
+50 PRINT CHR$ 13;33-x+32*(24-y)

Task/String-length/BASIC/string-length-6.basic

@@ -0,0 +1,2 @@
+10 INPUT A$
+20 PRINT LEN(A$)

Task/String-length/BASIC/string-length-7.basic

@@ -0,0 +1,2 @@
+100 INPUT PROMPT "String: ":TX$
+110 PRINT LEN(TX$)

Task/String-length/Frink/string-length-1.frink

@@ -0,0 +1,2 @@
+b = "𝔘𝔫𝔦𝔠𝔬𝔡𝔢"
+length[stringToBytes[b, "UTF-8"]]

Task/String-length/Frink/string-length-2.frink

@@ -0,0 +1,2 @@
+b = "𝔘𝔫𝔦𝔠𝔬𝔡𝔢"
+length[b]

Task/String-length/Frink/string-length-3.frink

@@ -0,0 +1,2 @@
+b = "𝔘𝔫𝔦𝔠𝔬𝔡𝔢"
+graphemeLength[b]

Task/String-length/Retro/string-length-1.retro

@@ -1 +1 @@
-"møøse" getLength putn
+'møøse s:length n:put

Task/String-length/Ruby/string-length-1.rb

@@ -1,4 +1 @@
-# -*- coding: utf-8 -*-
-
-puts "あいうえお".bytesize
-# => 15
+"J̲o̲s̲é̲".bytesize

Task/String-length/Ruby/string-length-2.rb

@@ -1,7 +1 @@
-# -*- coding: utf-8 -*-
-
-puts "あいうえお".length
-# => 5
-
-puts "あいうえお".size  # alias for length
-# => 5
+"J̲o̲s̲é̲".chars.length

Task/String-length/Ruby/string-length-3.rb

@@ -1,4 +1 @@
-# -*- coding: iso-8859-1 -*-
-s = "møøse"
-puts "Byte length: %d" % s.bytesize
-puts "Character length: %d" % s.length
+"J̲o̲s̲é̲".grapheme_clusters.length

Task/String-length/Ruby/string-length-4.rb

@@ -1,4 +1,4 @@
-# -*- coding: utf-8 -*-
+# -*- coding: iso-8859-1 -*-
 s = "møøse"
 puts "Byte length: %d" % s.bytesize
 puts "Character length: %d" % s.length

Task/String-length/Ruby/string-length-5.rb

@@ -1,4 +1,4 @@
-# -*- coding: gb18030 -*-
+# -*- coding: utf-8 -*-
 s = "møøse"
 puts "Byte length: %d" % s.bytesize
 puts "Character length: %d" % s.length

Task/String-length/Ruby/string-length-6.rb

@@ -1,12 +1,4 @@
-# -*- coding: utf-8 -*-
-
-class String
-  # Define String#bytesize for Ruby 1.8.6.
-  unless method_defined?(:bytesize)
-    alias bytesize length
-  end
-end
-
-s = "文字化け"
+# -*- coding: gb18030 -*-
+s = "møøse"
 puts "Byte length: %d" % s.bytesize
-puts "Character length: %d" % s.gsub(/./u, ' ').size
+puts "Character length: %d" % s.length

Task/String-length/Ruby/string-length-7.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+
+class String
+  # Define String#bytesize for Ruby 1.8.6.
+  unless method_defined?(:bytesize)
+    alias bytesize length
+  end
+end
+
+s = "文字化け"
+puts "Byte length: %d" % s.bytesize
+puts "Character length: %d" % s.gsub(/./u, ' ').size

Task/String-length/Stata/string-length.stata

@@ -1,3 +1,7 @@
 scalar s="Ἐν ἀρχῇ ἐποίησεν ὁ θεὸς τὸν οὐρανὸν καὶ τὴν γῆν"
+
 di strlen(s)
+97
+
 di ustrlen(s)
+47