Re: [CM] Scheme S7 convert float to string

[Heinrich Taube]

James, Im not exactly sure what you are trying to do, but you can use S7's 
object->string

> (object->string 123.45)

"123.45"

S7 also has a version of common lisp's format() :

> (format #f "~f" 123.456)

"123.456000"




On Jan 2, 2014, at 12:46 PM, James Hearon  wrote:

> Hi,
> I'm a bit stuck on finding info for scheme s7 format conversion from float to 
> string for output to file.  I've tried several things, mostly looking at lisp 
> code, but cannot seem to come up with what it wants.  Any help or hints would 
> be appreciated.
> 
> Thank you.
> 
>  
> (define ouf1 (open-output-file "myfloats.txt")) 
> (define outstring "init") 
>  
> (define (myfloats total) 
> (let ((test 0)) 
>  (process  with mytable = (make-heap '(.5 1 2.5 3))
>   until (= test total) 
>   do 
> (set! outstring (next mytable))   ;***stuck here with format conversion ***
> (set! outstring (string-append outstring (string #\newline)))
> (display outstring ouf1)
> (print (next mytable)) 
> (set! test (+ test 1))   ))) 
>  
> (sprout (myfloats 10) ) 
>  
> (close-output-port ouf1)
> ___
> Cmdist mailing list
> Cmdist@ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist


___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

Re: [CM] Scheme S7 convert float to string

[Bill Schottstaedt]

are you looking for (number->string val) or (format #f "~G" val)?

___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

Re: [CM] Scheme S7 convert float to string

[Halim Beere]

I think you need to use (number->string . . . ) to make this work.


On Thu, Jan 2, 2014 at 12:46 PM, James Hearon  wrote:

> Hi,
> I'm a bit stuck on finding info for scheme s7 format conversion from float
> to string for output to file.  I've tried several things, mostly looking at
> lisp code, but cannot seem to come up with what it wants.  Any help or
> hints would be appreciated.
>
> Thank you.
>
>
> (define ouf1 (open-output-file "myfloats.txt"))
> (define outstring "init")
>
> (define (myfloats total)
> (let ((test 0))
>  (process  with mytable = (make-heap '(.5 1 2.5 3))
>   until (= test total)
>   do
> (set! outstring (next mytable))   ;***stuck here with format conversion ***
> (set! outstring (string-append outstring (string #\newline)))
> (display outstring ouf1)
> (print (next mytable))
> (set! test (+ test 1))   )))
>
> (sprout (myfloats 10) )
>
> (close-output-port ouf1)
>
> ___
> Cmdist mailing list
> Cmdist@ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>
>
___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist

[CM] Scheme S7 convert float to string

[James Hearon]

Hi,
I'm a bit stuck on finding info for scheme s7 format conversion from float to 
string for output to file.  I've tried several things, mostly looking at lisp 
code, but cannot seem to come up with what it wants.  Any help or hints would 
be appreciated.

Thank you.

 
(define ouf1 (open-output-file "myfloats.txt"))
(define outstring "init")
 
(define (myfloats total)
(let ((test 0))
 (process  with mytable = (make-heap '(.5 1 2.5 3))
  until (= test total)
  do
(set! outstring (next mytable))   ;***stuck here with format conversion ***
(set! outstring (string-append outstring (string #\newline)))
(display outstring ouf1)
(print (next mytable))
(set! test (+ test 1))  
)))
 
(sprout (myfloats 10) )
 
(close-output-port ouf1)
  ___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist