fork download
copy 
  1. (defun splitStr (str)
  2.   "Appends characters from str to my-string unless the character is a space."
  3.   (setq my-string "")  ;; Initialize my-string as an empty global string
  4.   (setq len (length str))  ;; Get the length of the input string and store it in a global variable
  5.  
  6.   (dotimes (i len)
  7.     (setq curr-char (char str i))  ;; Get the character at index `i` and store it in a global variable
  8.     (if (char/= #\Space curr-char)  ;; If the character is not a space
  9.         (setq my-string (concatenate 'string my-string (string curr-char))))
  10.     ) ;; Append to my-string
  11.  
  12.   my-string)  ;; Return the modified string
  13.  
  14. ;; Example usage
  15. (princ (splitStr "I feel joy"))  ;; Output: "Ifeeljoy"
  16.  
Success #stdin #stdout #stderr 0.02s 9500KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ifeeljoy
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14acb2600000 - 0x14acb28e4fff
  0x14acb2a00000 - 0x14acb2a02fff
  0x14acb2a03000 - 0x14acb2c01fff
  0x14acb2c02000 - 0x14acb2c02fff
  0x14acb2c03000 - 0x14acb2c03fff
  0x14acb2c15000 - 0x14acb2c39fff
  0x14acb2c3a000 - 0x14acb2dacfff
  0x14acb2dad000 - 0x14acb2df5fff
  0x14acb2df6000 - 0x14acb2df8fff
  0x14acb2df9000 - 0x14acb2dfbfff
  0x14acb2dfc000 - 0x14acb2dfffff
  0x14acb2e00000 - 0x14acb2e03fff
  0x14acb2e04000 - 0x14acb3003fff
  0x14acb3004000 - 0x14acb3004fff
  0x14acb3005000 - 0x14acb3005fff
  0x14acb302b000 - 0x14acb302cfff
  0x14acb302d000 - 0x14acb303cfff
  0x14acb303d000 - 0x14acb3070fff
  0x14acb3071000 - 0x14acb31a7fff
  0x14acb31a8000 - 0x14acb31a8fff
  0x14acb31a9000 - 0x14acb31abfff
  0x14acb31ac000 - 0x14acb31acfff
  0x14acb31ad000 - 0x14acb31aefff
  0x14acb31af000 - 0x14acb31affff
  0x14acb31b0000 - 0x14acb31b1fff
  0x14acb31b2000 - 0x14acb31b2fff
  0x14acb31b3000 - 0x14acb31b3fff
  0x14acb31b4000 - 0x14acb31b4fff
  0x14acb31b5000 - 0x14acb31c2fff
  0x14acb31c3000 - 0x14acb31d0fff
  0x14acb31d1000 - 0x14acb31ddfff
  0x14acb31de000 - 0x14acb31e1fff
  0x14acb31e2000 - 0x14acb31e2fff
  0x14acb31e3000 - 0x14acb31e3fff
  0x14acb31e4000 - 0x14acb31e9fff
  0x14acb31ea000 - 0x14acb31ebfff
  0x14acb31ec000 - 0x14acb31ecfff
  0x14acb31ed000 - 0x14acb31edfff
  0x14acb31ee000 - 0x14acb31eefff
  0x14acb31ef000 - 0x14acb321cfff
  0x14acb321d000 - 0x14acb322bfff
  0x14acb322c000 - 0x14acb32d1fff
  0x14acb32d2000 - 0x14acb3368fff
  0x14acb3369000 - 0x14acb3369fff
  0x14acb336a000 - 0x14acb336afff
  0x14acb336b000 - 0x14acb337efff
  0x14acb337f000 - 0x14acb33a6fff
  0x14acb33a7000 - 0x14acb33b0fff
  0x14acb33b1000 - 0x14acb33b2fff
  0x14acb33b3000 - 0x14acb33b8fff
  0x14acb33b9000 - 0x14acb33bbfff
  0x14acb33be000 - 0x14acb33befff
  0x14acb33bf000 - 0x14acb33bffff
  0x14acb33c0000 - 0x14acb33c0fff
  0x14acb33c1000 - 0x14acb33c1fff
  0x14acb33c2000 - 0x14acb33c2fff
  0x14acb33c3000 - 0x14acb33c9fff
  0x14acb33ca000 - 0x14acb33ccfff
  0x14acb33cd000 - 0x14acb33cdfff
  0x14acb33ce000 - 0x14acb33eefff
  0x14acb33ef000 - 0x14acb33f6fff
  0x14acb33f7000 - 0x14acb33f7fff
  0x14acb33f8000 - 0x14acb33f8fff
  0x14acb33f9000 - 0x14acb33f9fff
  0x55663fee1000 - 0x55663ffd1fff
  0x55663ffd2000 - 0x5566400dbfff
  0x5566400dc000 - 0x55664013bfff
  0x55664013d000 - 0x55664016bfff
  0x55664016c000 - 0x55664019cfff
  0x55664019d000 - 0x5566401a0fff
  0x5566405d2000 - 0x5566405f2fff
  0x7ffe3e827000 - 0x7ffe3e847fff
  0x7ffe3e8e9000 - 0x7ffe3e8ecfff
  0x7ffe3e8ed000 - 0x7ffe3e8eefff
https://ideone.com/jCX3Xz
language:
Common Lisp (clisp 2.49.92)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!