Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.06.2013
Сообщений: 16
1

Как исправить на код DrRacket

28.06.2013, 12:11. Просмотров 842. Ответов 2
Метки нет (Все метки)


Lisp
1
2
3
4
5
6
7
8
(defun hex-to-bin (&optional (in "d:/hex.in") (out "d:/bin.in")         )
  (with-open-file (s in :direction :input)
    (with-open-file (r out :direction :output :if-exists :supersede)
      (do ((line (read-line s  nil :eof)(read-line s nil :eof))) 
          ((eql line :eof))
        (if (zerop (length line))
            (format r "~%")
            (format r "~b~%" (parse-integer line :radix 16)))))))
Из этого кода как заработать программу DrRacket?

Добавлено через 17 минут
То есть на Scheme из Common Lisp
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2013, 12:11
Ответы с готовыми решениями:

Почему DrRacket не компилирует код
Кто нибудь объясните мне пожалуйста почему DrRacket не компилирует следующий код (я только начал...

Scheme код в DrRacket
Перевод чисел из шестнадцатеричной системы в двоичную. Число записано в файле hex.in, вывод в файл...

Скажите, пожалуйста, как исправить исправить код в процедуре
задание такое :Дан одномерный массив. Переместить нулевые элементы массива в начало, сдвинув...

Как вставить div в PHP код (в echo) - исправить код
Народ как вставить div в php код точнее в echo В этот код:<?php //отсеивание $dir = "MP3...

2
3276 / 2338 / 425
Регистрация: 28.04.2012
Сообщений: 7,823
28.06.2013, 15:26 2
Лучший ответ Сообщение было отмечено как решение

Решение

Как-то так

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#lang racket
 
(define (convert s from-radix to-radix)
  (let ((v (string->number s from-radix)))
    (if (number? v)
        (number->string v to-radix)
        "")))
 
(define (hex-to-bin (in "d:/hex.in") (out "d:/hex.out"))
  (define (conv s) (convert s 16 2))
  (with-input-from-file in
    (lambda ()
      (with-output-to-file out
        (lambda ()
          (for ((line (in-lines)))
            (if (zero? (string-length line))
                (newline)
                (displayln (conv line)))))
        #:mode   'text
        #:exists 'replace))
    #:mode 'text))
2
0 / 0 / 0
Регистрация: 28.06.2013
Сообщений: 16
30.06.2013, 10:56  [ТС] 3
Цитата Сообщение от korvin_ Посмотреть сообщение
Как-то так

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#lang racket
 
(define (convert s from-radix to-radix)
  (let ((v (string->number s from-radix)))
    (if (number? v)
        (number->string v to-radix)
        "")))
 
(define (hex-to-bin (in "d:/hex.in") (out "d:/hex.out"))
  (define (conv s) (convert s 16 2))
  (with-input-from-file in
    (lambda ()
      (with-output-to-file out
        (lambda ()
          (for ((line (in-lines)))
            (if (zero? (string-length line))
                (newline)
                (displayln (conv line)))))
        #:mode   'text
        #:exists 'replace))
    #:mode 'text))
у меня что то не выходит
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2013, 10:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

как исправить код на динамический массив-код уже написан только на статическом
#include <iostream> #include <iostream> #include "string.h" using namespace std; const...

Как исправить код?
Программа для нахождения наибольшего из наименьших чисел,вводить числа надо с клавиатуры,есть...

Как исправить код
<?php $allowed_filetypes = array('.jpg','.gif','.bmp','.png'); // Здесь мы перечисляем...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure bubble(var q:array of...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.