wat-aro wat-aro

## curry.html
<!DOCTYPE html>
<html lang="ja">
  <head>
    <meta charset="utf-8">
    <title>カレーのレシピ</title>
  </head>
  <body>
    <header>
      <h1>カレーのレシピ</h1>

## Rakefile
CC = "gcc"

task :default => "print_reverse"

file "print_reverse" => "print_reverse.o" do
  sh "#{ CC } -o print_reverse print_reverse.o"
end

file "print_reverse.o" => "print_reverse.c" do
  sh "#{ CC } -c print_reverse.c"

## eval.scm
(define (eval exp env)
  (cond ((self-evaluating? exp) exp)
        ((variable? exp) (lookup-variable-value exp env))
        ((quoted? exp) (text-of-quotation exp))
        ((assignment? exp) (eval-assignment exp env))
        ((definition? exp) (eval-definition exp env))
        ((if? exp) (eval-if exp env))
        ((lambda? exp)
         (make-procedure (lambda-parameters exp)
                         (lambda-body exp)

## combination.rb
class Hoge
  def combination(array, num)
    if array.empty? || num == 0
      []
    elsif num == 1
      array.map{ |elem| [elem] }
    else
      rest = array.drop(1)
      combination(rest, num - 1).map{ |elem| [array.first] + elem } +
        combination(rest, num)

## DateTimeParser.hs
{-# LANGUAGE OverloadedStrings #-}

module DateTimeParser where

import           Control.Applicative
import           Data.Attoparsec.Text hiding (take)
import           Data.Char
import qualified Data.Text            as T

data YMD = YMD Int Int Int deriving Show

## Main.elm
module Main exposing (Model, init, main)

import Browser
import Html exposing (..)
import Html.Attributes as Attributes
import Html.Events exposing (onClick)
import Svg
import Svg.Attributes
import Task
import Time
	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="utf-8">
	<title>カレーのレシピ</title>
	</head>
	<body>
	<header>
	<h1>カレーのレシピ</h1>
	CC = "gcc"

	task :default => "print_reverse"

	file "print_reverse" => "print_reverse.o" do
	sh "#{ CC } -o print_reverse print_reverse.o"
	end

	file "print_reverse.o" => "print_reverse.c" do
	sh "#{ CC } -c print_reverse.c"
	(define (eval exp env)
	(cond ((self-evaluating? exp) exp)
	((variable? exp) (lookup-variable-value exp env))
	((quoted? exp) (text-of-quotation exp))
	((assignment? exp) (eval-assignment exp env))
	((definition? exp) (eval-definition exp env))
	((if? exp) (eval-if exp env))
	((lambda? exp)
	(make-procedure (lambda-parameters exp)
	(lambda-body exp)
	class Hoge
	def combination(array, num)
	if array.empty? \|\| num == 0
	[]
	elsif num == 1
	array.map{ \|elem\| [elem] }
	else
	rest = array.drop(1)
	combination(rest, num - 1).map{ \|elem\| [array.first] + elem } +
	combination(rest, num)
	{-# LANGUAGE OverloadedStrings #-}

	module DateTimeParser where

	import Control.Applicative
	import Data.Attoparsec.Text hiding (take)
	import Data.Char
	import qualified Data.Text as T

	data YMD = YMD Int Int Int deriving Show
	module Main exposing (Model, init, main)

	import Browser
	import Html exposing (..)
	import Html.Attributes as Attributes
	import Html.Events exposing (onClick)
	import Svg
	import Svg.Attributes
	import Task
	import Time