OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2026-02-18 07:51:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete lfe directory

Browse Source
This commit is contained in:
Matt Decker 2022-06-26 09:17:00 -05:00 committed by GitHub
parent 4592f6fabd
commit 7c06f21451
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 0 additions and 233 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lfe/README.md
View File

@ -1,10 +0,0 @@
GildedRose
=====
It is assumed you have installed Erlang and rebar3.
To run the tests do: `rebar3 as test lfe ltest`.
Checkout the [LFEUnit Emacs plugin](https://github.com/mdbergmann/emacs-lfeunit) when you're on Emacs.
Otherwise the usual rebar3 things apply.

4
lfe/include/gilded-rose-item.lfe
View File

@ -1,4 +0,0 @@
;;; Item
(defrecord item
name sellin quality)

49
lfe/rebar.config
View File

@ -1,49 +0,0 @@
{erl_opts, [debug_info]}.
{deps, [
{lfe, "2.0.1"}
]}.
{plugins, [
{rebar3_lfe, "0.4.0"}
]}.
{lfe, [
{main, "scripts/main.lfe"}
]}.
{provider_hooks, [
{pre, [{compile, {lfe, compile}}]}
]}.
{xref_checks,[
undefined_function_calls,undefined_functions,locals_not_used,
deprecated_function_calls,deprecated_functions
]}.
{profiles, [
{test, [
{deps, [
{proper, "1.3.0"}
]},
{plugins, [
{rebar3_proper, "0.12.0"}
]},
{eunit_opts, [verbose]},
{erl_opts, [{src_dirs, ["src", "test"]}]}
]}
]}.
{alias, [
{coverage, [
{proper, "-c"},
{cover, "-v --min_coverage=0"}
]},
{check, [
compile,
xref,
%%dialyzer,
eunit,
coverage
]}
]}.

10
lfe/scripts/main.lfe
View File

@ -1,10 +0,0 @@
#! /usr/bin/env lfescript
;;; --------------------
;;; entry point function
;;; --------------------
(defun main (args)
(let ((script-name (escript:script_name)))
(io:format "Running script '~s' with args ~p ...~n" `(,script-name ,args))
(io:format "~p~n" `(,(gilded-rose:my-fun)))))

14
lfe/src/gilded-rose.app.src
View File

@ -1,14 +0,0 @@
{application, 'gilded-rose', [
{description, "A run-ready LFE script"},
{vsn, "0.1"},
{registered, []},
{applications, [
kernel,
stdlib
]},
{env,[]},
{modules, []},
{licenses, ["Apache 2.0"]},
{links, []}
]}.

133
lfe/src/gilded-rose.lfe
View File

@ -1,133 +0,0 @@
;; Hi and welcome to team Gilded Rose. As you know, we are a small inn
;; with a prime location in a prominent city ran by a friendly
;; innkeeper named Allison. We also buy and sell only the finest goods.
;; Unfortunately, our goods are constantly degrading in (item-quality item) as they
;; approach their sell by date. We have a system in place that updates
;; our inventory for us. It was developed by a no-nonsense type named
;; Leeroy, who has moved on to new adventures. Your task is to add the
;; new feature to our system so that we can begin selling a new
;; category of items.
;; First an introduction to our system:
;; All items have a SellIn value which denotes the number of days we have to sell the item
;; All items have a Quality value which denotes how valuable the item is
;; At the end of each day our system lowers both values for every item
;; Pretty simple, right? Well this is where it gets interesting:
;; Once the sell by date has passed, Quality degrades twice as fast
;; The Quality of an item is never negative
;; "Aged Brie" actually increases in Quality the older it gets
;; The Quality of an item is never more than 50
;; "Sulfuras", being a legendary item, never has to be sold or decreases in Quality
;; "Backstage passes", like aged brie, increases in Quality as it's
;; SellIn value approaches; Quality increases by 2 when there are 10
;; days or less and by 3 when there are 5 days or less but Quality
;; drops to 0 after the concert
;; We have recently signed a supplier of conjured items. This requires an update to our system:
;; "Conjured" items degrade in Quality twice as fast as normal items
;; Feel free to make any changes to the UpdateQuality method and add
;; any new code as long as everything still works correctly. However,
;; do not alter the Item class or Items property as those belong to the
;; goblin in the corner who will insta-rage and one-shot you as he
;; doesn't believe in shared code ownership (you can make the
;; UpdateQuality method and Items property static if you like, we'll
;; cover for you).
;; Just for clarification, an item can never have its Quality increase
;; above 50, however "Sulfuras" is a legendary item and as such its
;; Quality is 80 and it never alters.
;; https://github.com/emilybache/GildedRose-Refactoring-Kata
;; LFE version by Manfred Bergmann, 2022
;;; ================================================================
;;; Code
(defmodule gilded-rose
(export all))
(include-lib "include/gilded-rose-item.lfe")
;; update-quality
(defun update-quality (items)
(lists:map #'update-item/1 items))
(defun update-item (item)
(let* ((item (if (and (not (string:equal (item-name item)
"Aged Brie"))
(not (string:equal (item-name item)
"Backstage passes to a TAFKAL80ETC concert")))
(if (> (item-quality item) 0)
(if (not (string:equal (item-name item)
"Sulfuras, Hand of Ragnaros"))
(set-item-quality item (- (item-quality item) 1))
item)
item)
(if (< (item-quality item) 50)
(set-item-quality item (+ (item-quality item) 1))
(if (string:equal (item-name item)
"Backstage passes to a TAFKAL80ETC concert")
(if (< (item-sellin item) 11)
(if (< (item-quality item) 50)
(set-item-quality item (+ (item-quality item) 1))
item)
item)
(if (< (item-sellin item) 6)
(if (< (item-quality item) 50)
(set-item-quality item (+ (item-quality item) 1))
item)
item)))))
(item (if (not (string:equal (item-name item)
"Sulfuras, Hand of Ragnaros"))
(set-item-sellin item (- (item-sellin item) 1))
item)))
(if (< (item-sellin item) 0)
(if (not (string:equal (item-name item)
"Aged Brie"))
(if (not (string:equal (item-name item)
"Backstage passes to a TAFKAL80ETC concert"))
(if (> (item-quality item) 0)
(if (not (string:equal (item-name item)
"Sulfuras, Hand of Ragnaros"))
(set-item-quality item (- (item-quality item) 1))
item)
item)
(set-item-quality item (- (item-quality item) (item-quality item))))
(if (< (item-quality item) 50)
(set-item-quality item (+ (item-quality item) 1))
item))
item)))
;;; Example
(defun print-item (item)
(io:format "~s ~b ~b~n" (list (item-name item) (item-sellin item) (item-quality item))))
(defun print-day (day items)
(io:format "-------- day ~b --------~n" (list day))
(io:format "name, sellin, quality~n")
(lists:foreach #'print-item/1 items)
(io:format "~n"))
(defrecord gilded-rose items)
(defun run-gilded-rose (days)
(io:format "OMGHAI!~n")
(let ((items (list (make-item name "+5 Dexterity Vest" sellin 10 quality 20)
(make-item name "Aged Brie" sellin 2 quality 0)
(make-item name "Elixir of the Mongoose" sellin 5 quality 7)
(make-item name "Sulfuras, Hand of Ragnaros" sellin 0 quality 80)
(make-item name "Sulfuras, Hand of Ragnaros" sellin -1 quality 80)
(make-item name "Backstage passes to a TAFKAL80ETC concert" sellin 15 quality 20)
(make-item name "Backstage passes to a TAFKAL80ETC concert" sellin 10 quality 49)
(make-item name "Backstage passes to a TAFKAL80ETC concert" sellin 5 quality 49)
;; this conjured item does not work properly yet
(make-item name "Conjured Mana Cake" sellin 3 quality 6))))
(lists:foldl (lambda (day gr)
(print-day day (gilded-rose-items gr))
(make-gilded-rose items (update-quality (gilded-rose-items gr))))
(make-gilded-rose items items)
(lists:seq 0 days))))

13
lfe/test/gilded-rose-test.lfe
View File

@ -1,13 +0,0 @@
(defmodule gilded-rose-test
(behaviour ltest-unit)
(export all)
(import (from gilded-rose
(update-quality 1))))
(include-lib "ltest/include/ltest-macros.lfe")
(include-lib "include/gilded-rose-item.lfe")
(deftest update-quality-test
(is-equal "fixme" (item-name (car (update-quality
(list (make-item name "foo" sellin 0 quality 0)))))))