Hola

Tengo estos 2 programas en haskell pero no se como funcionan, me podrían explicar las lineas de código de estos 2 programas,

Programas:

1º

sum' :: Integer -> Integer 
sum' a = sum [x^2 | x <- [1..a]]

2º

localizacion::Ord a=>[a]->Int->a
localizacion a x = a!!x

muchas gracias
Saludos.

Alguien sabe como convertir un numero a octal que ha sido asignado a memoria en debug

Muchas gracias por tu ayuda

entonces quedaria asi:

MOV CX,1
proc1:
        LEA DX,msj2
        MOV AH,09H
        INT 21H
 
        MOV AH,0AH  
    LEA DX,buffer
    INT 21H
    SUB AL,30H
 
TEST
JNE FinOpera
INC CX
 
        ADD AL,VAL1 
  MOV VAL1,AL 
FinOpera:
        LOOPNZ proc1 

o que mas es lo que tengo que modificar?

---

· Los códigos deben ir en etiquetas GeSHi (segunda advertencia)
>aquí las reglas del foro
-Engel Lex

Tengo este programa, es para calcular el promedio de n números ingresados por el usuario,
Corre todo bien hasta el momento de ingresar los datos, nunca sale del ciclo en el que se encuentra.
Este es el código:

.model small 
.stack 64 
.data 
;......................................... 
VAL1 DB ? 
msj1 DB 0AH,0DH, Cuantos numeros deseas introducir? : , $ 
msj2 DB 0AH,0DH, Numero: , $ 
msj3 DB 0AH,0DH, Promedio: , $ 
buffer DB 3,4 DUP(?) 
;......................................... 
.code 
empezar proc far 
mov ax,@data 
mov ds,ax 
mov es,ax 
 
LEA DX,msj1 
MOV AH,09H 
INT 21H 
 
MOV AH,0AH 
INT 21H 
SUB AL,30H 
 
MOV CL,AL 
MOV BL,AL 
MOV AL,00 
MOV VAL1,AL 
proc1: 
LEA DX,msj2 
MOV AH,09H 
INT 21H 
 
MOV AH,0AH 
LEA DX,buffer 
INT 21H 
SUB AL,30H 
 
ADD AL,VAL1 
MOV VAL1,AL 
LOOP proc1 
 
proc2: 
LEA DX,msj3 
MOV AH,09H 
INT 21H 
 
MOV AX,00 
MOV AL,VAL1 
DIV BL 
ADD AX,3030H 
MOV DX,AX 
MOV AH,09H 
INT 21H 
 
 
mov ax,4c00h ;fin del programa con interrupcion 
int 21h 
empezar endp 
 
end empezar 
 
 

Ojala y me puedan ayudar, gracias

MOD: Etiqueta GeSHi