From ba249a06db57ad8bcfefb799cd6aab20f9d1802e Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Wed, 29 Apr 2009 08:19:11 +0200 Subject: [PATCH] iterator/repeator status and feature to do.' --- ...issue-7123c94180e6184da902e7ebe1221cb7479da34f.yaml | 18 ++++++++++++++++++ src/data/dataframe.lisp | 6 ++++-- 2 files changed, 22 insertions(+), 2 deletions(-) create mode 100644 bugs/issue-7123c94180e6184da902e7ebe1221cb7479da34f.yaml diff --git a/bugs/issue-7123c94180e6184da902e7ebe1221cb7479da34f.yaml b/bugs/issue-7123c94180e6184da902e7ebe1221cb7479da34f.yaml new file mode 100644 index 0000000..7da8972 --- /dev/null +++ b/bugs/issue-7123c94180e6184da902e7ebe1221cb7479da34f.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: General iteration, repetition +desc: Need to include a general iteration strategy for dataframe access and manipulatin. +type: :feature +component: Data +release: "2.0" +reporter: Tony +status: :unstarted +disposition: +creation_time: 2009-04-29 06:18:21.904443 Z +references: [] + +id: 7123c94180e6184da902e7ebe1221cb7479da34f +log_events: +- - 2009-04-29 06:18:25.904482 Z + - Tony + - created + - /stp diff --git a/src/data/dataframe.lisp b/src/data/dataframe.lisp index 2805de5..14ff7d0 100644 --- a/src/data/dataframe.lisp +++ b/src/data/dataframe.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-04-20 18:49:51 tony> +;;; Time-stamp: <2009-04-28 23:15:27 tony> ;;; Creation: <2008-03-12 17:18:42 blindglobe@gmail.com> ;;; File: dataframe.lisp ;;; Author: AJ Rossini @@ -74,10 +74,12 @@ for indexing." (defun repeat-seq (n item) "FIXME: There has to be a better way -- I'm sure of it! (repeat-seq 3 \"d\") ; => (\"d\" \"d\" \"d\") - (repeat-seq 3 'd) ; => ('d 'd 'd)" + (repeat-seq 3 'd) ; => ('d 'd 'd) + (repeat-seq 3 (list 1 2))" (if (>= n 1) (append (repeat-seq (1- n) item) (list item)))) + (defun strsym->indexnum (df strsym) "Returns a number indicating the DF column labelled by STRSYM. Probably should be a method dispatching on DATAFRAME-LIKE type." -- 2.11.4.GIT