update

Task/String-length/Aime/string-length.aime

@@ -0,0 +1 @@
+length("Hello, World!")

Task/String-length/Racket/string-length-1.rkt

@@ -0,0 +1 @@
+(define str "J\u0332o\u0332s\u0332e\u0301\u0332")

Task/String-length/Racket/string-length-2.rkt

@@ -0,0 +1,2 @@
+-> (printf "str has ~a characters" (string-length str))
+str has 9 characters

Task/String-length/Racket/string-length-3.rkt

@@ -0,0 +1,2 @@
+-> (printf "str has ~a bytes in utf-8" (bytes-length (string->bytes/utf-8 str)))
+str has 14 bytes in utf-8

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

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

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

@@ -0,0 +1,7 @@
+# -*- coding: utf-8 -*-
+
+puts "あいうえお".length
+# => 5
+
+puts "あいうえお".size  # alias for length
+# => 5

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

@@ -0,0 +1,4 @@
+# -*- 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-4.rb

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

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

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

Task/String-length/Ruby/string-length-6.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/Run-BASIC/string-length.run

@@ -0,0 +1,2 @@
+input a$
+print len(a$)