Das deutsche Python-Forum

Code: Alles auswählen

#!/usr/bin/env io
Range

Converter := Object clone do(
    name ::= nil
    factor ::= 1
    offset ::= 0
    convert := method(x, x * self factor + self offset)
    withName := method(name, self clone setName(name))
)

converters := List with(
    Converter withName("Celsius"),
    Converter withName("Fahrenheit") setFactor(9/5) setOffset(32),
    Converter withName("Kelvin") setOffset(273.15)
)

input := method(prompt, File standardInput readLine(prompt))

start := input("Von? ") asNumber
end := input("Bis? ") asNumber

converters map(name) join("; ") println
start toBy(end, 10) foreach(x,
    converters map(convert(x)) join("; ") println
)

Code: Alles auswählen

import Data.List

main = do
    putStrLn "VON?"
    fromStr <- getLine
    putStrLn "BIS?"
    toStr <- getLine
    let from = read fromStr
        to = read toStr
        ss = [[c, c+273.15, c*9/5+32] | c<-[from, from+10..to]]
    putStrLn $ intercalate "\n" $ map (intercalate "\t") $ (["C", "K", "F"]:) $ map (map show) ss

Code: Alles auswählen

VON?
3
BIS?
22
C       K       F
3.0     276.15  37.4
13.0    286.15  55.4
23.0    296.15  73.4

Code: Alles auswählen

#!/usr/bin/env coffee

delimiter = '; '

converters = [
    ['Celsius', (x) -> x],
    ['Fahrenheit', (x) -> x * 9 / 5 + 32],
    ['Kelvin', (x) -> x + 273.15],
]

printTable = (from, to, step=10) ->
    console.log (n for [n, _] in converters).join(delimiter)
    for c in [from..to] by step
        console.log (f(c) for [_, f] in converters).join(delimiter)
    null

main = ->
    values = []
    stdin = process.openStdin()
    stdin.setEncoding 'ascii'
    stdin.on 'data', (data) ->
        values.push parseInt data
        if values.length == 2
            printTable values...
            process.exit 0

main()

Code: Alles auswählen

(let ((a 23)
      (b 42))
   a)

Code: Alles auswählen

(let [a 23
      b 42]
   a)

Code: Alles auswählen

(defn raw-input
  ([] (raw-input ""))
  ([prompt]
   (if (not (empty? prompt))
     (do 
       (print prompt)
       (flush)))
   (read-line)))

(defn read-number
  ([] (read-number ""))
  ([prompt]
   (let [value (raw-input prompt)
        number (try
                 (Integer/parseInt value 10)
                 (catch NumberFormatException e nil))]
    (if (not (nil? number)) number
      (do
        (println "Not a number")
        (recur prompt))))))

(defn get-range []
  (let [start (read-number "Enter start: ")
        stop (read-number "Enter stop: ")
        step 10]
    (range start (+ stop 1) step)))

(defn celsius->kelvin [temperature]
  (+ temperature 273.15))

(defn celsius->fahrenheit [temperature]
  (-> temperature
    (* 9)
    (/ 5)
    (+ 32)))

(defn convert [value]
  [value (celsius->kelvin value) (celsius->fahrenheit value)])

(defn tabellize [items]
  (doseq [[celsius kelvin fahrenheit] items]
    (printf "C: %s | K: %.2f | F: %.1f\n" celsius kelvin (float fahrenheit))))

(tabellize (map convert (get-range)))

Code: Alles auswählen

#!/usr/bin/env ruby

rules = {
  "Celsius" => lambda { |temp| temp },
  "Farenheit" => lambda { |temp| temp * 9 / 5.0 + 32 },
  "Kelvin" => lambda { |temp| temp + 273.15 }
}

puts "Von?"
min = gets.to_i
puts "Bis?"
max = gets.to_i

(min ... max).step(10) do |temp|
  rules.each_pair { |name, func| print "#{name} %6.2f; " % func.call(temp) }
  puts
end