โลโก้ - สตริง

ลำดับของอักขระที่เป็นตัวอักษรและตัวเลขเช่น -“ อเมริกา”“ emp1234” เป็นต้นเป็นตัวอย่างของสตริง การนับอักขระเป็นขั้นพื้นฐานที่สุดของกระบวนการสตริงทั้งหมด คำตอบสำหรับคำถามstringlength "abc12ef กำหนดโดยขั้นตอนต่อไปนี้ -

to stringlength :s
   make "inputstring :s
   make "count 0
   while [not emptyp :s] [
      make "count :count + 1
      print first :s
      make "s butfirst :s
   ]
   print (sentence :inputstring "has :count "letters)
end

ในขั้นตอนข้างต้น –'s 'คือตัวแปรที่มีสตริงอินพุต สตริงอินพุตตัวแปรมีสำเนาของสตริงอินพุต การนับตัวแปรเริ่มต้นด้วย 0 ในลูป while เงื่อนไขจะตรวจสอบว่าสตริงว่างหรือไม่ ในการนับลูปแต่ละครั้งตัวแปรจะเพิ่มขึ้น 1 เพื่อรองรับการนับความยาว คำสั่งprint first :sพิมพ์อักขระตัวแรกของสตริงที่เก็บไว้ใน 's' เท่านั้น

คำสั่ง make "s butfirst :sดึงสตริงย่อยโดยไม่รวมอักขระตัวแรก หลังจากออกจาก while-loop เราได้พิมพ์จำนวนอักขระหรือความยาวของสตริงอินพุต ต่อไปนี้คือการดำเนินการและผลลัพธ์ของรหัส