Temas

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º

Código (actionscript) [Seleccionar] Expandir

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

2º

Código (actionscript) [Seleccionar] Expandir

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

[MOD: Etiqueta GeSHi]

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:

Código (asm) [Seleccionar] Expandir

.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