Skip to content

Instantly share code, notes, and snippets.

View anscharivs's full-sized avatar
🦜
Doctrina

Óscar Vega anscharivs

🦜
Doctrina
  • eSponsor.com
  • Uriangato, Guanajuato, México
  • 18:13 (UTC -06:00)
View GitHub Profile
@anscharivs
anscharivs / App.js
Created June 1, 2020 03:41
Aplicación en React Native que muestra una lista de imágenes y texto (super héroes) desde un JSON en Internet.
import React, { Component } from 'react';
import { StyleSheet, View, ActivityIndicator, FlatList, Text, Image } from 'react-native';
export default class App extends Component {
constructor(props) {
super(props);
this.state = {
@anscharivs
anscharivs / abbHaskell.hs
Last active June 5, 2024 22:29
Árbol Binario de búsqueda en Haskell. Operaciones: crea un árbol a partir de una lista, inserta nodos a un árbol, búsqueda de un nodo, mostrar número de nodos, mostrar número de hojas, mostrar altura del árbol y recorridos preorden, inorden y postorden.
-- Estructura del árbol
data Abb a = Vacio | Nodo a (Abb a) (Abb a) deriving (Show)
-- Insertar un nuevo nodo a un árbol definido
-- insertarNodo (Valor a insertar) (Árbol)
insertarNodo :: (Ord a) => a -> Abb a -> Abb a
insertarNodo nuevo Vacio = Nodo nuevo Vacio Vacio
insertarNodo nuevo (Nodo a izq der)
| nuevo <= a = Nodo a (insertarNodo nuevo izq) der
| nuevo > a = Nodo a izq (insertarNodo nuevo der)
@anscharivs
anscharivs / numeros_a_palabras_haskell.hs
Last active September 1, 2019 04:18
Este código (algo "hardcodeado") convierte un número del 0 al 1000 a su equivalente escrito en Español (p. ej. 253 es Doscientos Cincuenta y Tres).
-- Descompone un número en una lista con los números que lo componen
digs :: Integral x => x -> [x]
digs 0 = []
digs x = digs (div x 10) ++ [mod x 10]
-- Devuelve la longitud de un número entero
longitud m = length (show m)
-- Evaluador principal
pre n